Re: [Denemo-devel] Scheme question

[Richard Shann]

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
> address@hidden
> https://lists.gnu.org/mailman/listinfo/denemo-devel