> Thanks, Rick, that fixed it. Now how do I get a newline after each
> force-output ? :
(terpri) will do that:
(set-receiver! (lambda (ev)
(ms:MidiPrintEv ev)
(terpri)
(force-output)
(ms:MidiFreeEv ev)) ; dont forget to free an ev if
you dont resend!
*ms*)