(bind-func set_noise_type (lambda (inst:i8* val:i32) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note noise val enum) void)))