From a8f22ae3f9149f02e277badd63e9b37b3f3293b5 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sat, 22 May 2021 20:13:55 +0200
Subject: send-note-on/off: Handle #f argument

---
 guile/starlet/midi-control/base.scm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'guile/starlet/midi-control/base.scm')

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)
-- 
cgit v1.2.3