(bind-func xtm_stop_note (lambda (note:i8*) (let ((nd:NoteData* (cast note))) (if (not (null? nd)) (note_active nd #f))) void))