(bind-func static set_filter_env_sustain
(lambda (inst:i8* s:float)
(let ((note (cref (cast inst [void]*) note_kernel [void]*))
(env (get_filter_env inst)))
(aset! (ref env) 2 s)
(cset! note filter_env env |4,float|)
void)))