(bind-func set_monophonic (lambda (inst:i8*) (stop_running inst) ;; force a stop on all notes before changing poly count (cset! (cast inst [void]*) poly 1 i64) void))