diff options
author | Thomas White <taw@physics.org> | 2020-08-09 08:28:27 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-08-09 08:28:27 +0200 |
commit | 8726a6ae6b770e850bbe5fa3cb69f7b35107225d (patch) | |
tree | a582f4584b861d40b844b8ed38ca3041a1dca093 | |
parent | 65641890d23eaca494859a75780e7548df0a158e (diff) |
Fix some lets
-rw-r--r-- | guile/guile-midi/control.scm | 10 | ||||
-rw-r--r-- | guile/starlet/base.scm | 12 |
2 files changed, 11 insertions, 11 deletions
diff --git a/guile/guile-midi/control.scm b/guile/guile-midi/control.scm index 6007e8c..f45d4fc 100644 --- a/guile/guile-midi/control.scm +++ b/guile/guile-midi/control.scm @@ -105,15 +105,15 @@ (begin-thread (let again () - (letrec* ((status-byte (get-u8 midi-port)) - (channel (bit-extract status-byte 0 4)) - (command (bit-extract status-byte 4 8))) + (let* ((status-byte (get-u8 midi-port)) + (channel (bit-extract status-byte 0 4)) + (command (bit-extract status-byte 4 8))) (case command ;; Note on - ((9) (let ((note (get-u8 midi-port)) - (vel (get-u8 midi-port))) + ((9) (let* ((note (get-u8 midi-port)) + (vel (get-u8 midi-port))) (display "Note = ") (display (number->string note 16)) (display " velocity = ") diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index fc97542..cd68a01 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -312,12 +312,12 @@ (define scanout-freq 0) (define (start-ola-output) - (letrec* ((ola-uri (build-uri 'http - #:host "127.0.0.1" - #:port 9090 - #:path "/set_dmx")) - (ola-socket (open-socket-for-uri ola-uri)) - (start-time (hirestime))) + (let* ((ola-uri (build-uri 'http + #:host "127.0.0.1" + #:port 9090 + #:path "/set_dmx")) + (ola-socket (open-socket-for-uri ola-uri)) + (start-time (hirestime))) (begin-thread (let scanout-loop ((count 0)) |