diff options
Diffstat (limited to 'guile')
-rw-r--r-- | guile/starlet/midi-control/base.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guile/starlet/midi-control/base.scm b/guile/starlet/midi-control/base.scm index c9a6118..f0947aa 100644 --- a/guile/starlet/midi-control/base.scm +++ b/guile/starlet/midi-control/base.scm @@ -127,18 +127,20 @@ (define* (send-note-on note #:key (channel #f)) - (enqueue-midi-bytes! (+ #b10010000 - (if channel channel default-channel)) - note - 127)) + (when note + (enqueue-midi-bytes! (+ #b10010000 + (if channel channel default-channel)) + note + 127))) (define* (send-note-off note #:key (channel #f)) - (enqueue-midi-bytes! (+ #b10000000 - (if channel channel default-channel)) - note - 0)) + (when note + (enqueue-midi-bytes! (+ #b10000000 + (if channel channel default-channel)) + note + 0))) (define (all-notes-off! channel) |