On Sat, 2014-10-25 at 20:53 +0200, Andreas Schneider wrote: > Trying to write an input filter for my master keyboard, I use the angry > delete as template and, as a first step, want to display the incoming > midi events. This is what I have: > > ;;; Master keyboard filter > (let ((midi 0) > (command 0) > (bank 0) > (note 0) > (velocity 0) > (loop 0)) > (d-InputFilterNames (_ "Master Keyboard MIDI Filter")) > (d-SetMidiCapture #t) > (set! loop (lambda () > (begin > (set! midi (d-GetMidi)) > (set! velocity (bit-extract midi 16 24)) > (set! command (bit-extract midi 0 4)) > (set! bank (bit-extract midi 4 8)) > (display "command " command ", bank " bank ", velocity " > velocity) > (if (= command 0) > (display "Filter stopping") > (loop))))) > (loop)) > (d-SetMidiCapture #f) > > It gives the error > (#f Wrong number of arguments to ~A (#<procedure display (_ #:optional > _)>) #f) > What do I do wrong?
I think you mis-remembered the name of the procedure - display is a scheme procedure, disp is the Denemo procedure: (disp "command " command ", bank " bank ", velocity " velocity) Richard > > Thanks > > Andreas > > _______________________________________________ > Denemo-devel mailing list > [email protected] > https://lists.gnu.org/mailman/listinfo/denemo-devel _______________________________________________ Denemo-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/denemo-devel
