tweak

7 years ago · 0ad47dd273
parent cc4b7d358c
commit 0ad47dd273
1 changed files with 3 additions and 3 deletions
--- a/beautiful-racket-demo/basic-demo-2/misc.rkt
+++ b/beautiful-racket-demo/basic-demo-2/misc.rkt
@ -10,8 +10,8 @@
 (define-macro (b-let ID VAL) #'(set! ID VAL))

 (define-macro (b-input ID)
-  #'(set! ID (let* ([str (read-line)]
-                    [num (string->number (string-trim str))])
-               (or num str))))
+  #'(b-let ID (let* ([str (read-line)]
+                     [num (string->number (string-trim str))])
+                (or num str))))

 (define (b-end) (raise (end-program-signal)))