aboutsummaryrefslogtreecommitdiff
path: root/guile/starlet/midi-control
diff options
context:
space:
mode:
Diffstat (limited to 'guile/starlet/midi-control')
-rw-r--r--guile/starlet/midi-control/base.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guile/starlet/midi-control/base.scm b/guile/starlet/midi-control/base.scm
index 9585766..cbd113e 100644
--- a/guile/starlet/midi-control/base.scm
+++ b/guile/starlet/midi-control/base.scm
@@ -218,7 +218,8 @@
(let again ()
(let ((bytes-to-send (atomic-box-swap! send-queue '())))
(for-each (lambda (a)
- (put-u8 midi-port a))
+ (put-u8 midi-port a)
+ (usleep 1))
bytes-to-send)
(usleep 1000)
(again))))