diff options
Diffstat (limited to 'guile/starlet/midi-control/base.scm')
-rw-r--r-- | guile/starlet/midi-control/base.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guile/starlet/midi-control/base.scm b/guile/starlet/midi-control/base.scm index 21692b5..fece2be 100644 --- a/guile/starlet/midi-control/base.scm +++ b/guile/starlet/midi-control/base.scm @@ -10,7 +10,8 @@ send-note-on send-note-off register-midi-note-callback! - register-midi-cc-callback!)) + register-midi-cc-callback! + remove-midi-callback!)) (define cc-arrays (make-atomic-box '())) @@ -62,6 +63,13 @@ (register-midi-callback! 'cc channel cc-number func)) +(define (remove-midi-callback! callback) + (atomic-box-set! callback-list + (remove (lambda (a) + (eq? callback a)) + (atomic-box-ref callback-list)))) + + (define enqueue-midi-bytes! (lambda bytes (unless (eq? (atomic-box-compare-and-swap! send-queue '() bytes) |