(bind-func static set_mod_env (lambda (inst:i8* a:float d s r) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note mod_env (array a d s r) |4,float|) void)))