From 0ad47dd273eaa91cd7cb19c459cf548f8291098f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Feb 2017 13:07:10 -0800 Subject: [PATCH] tweak --- beautiful-racket-demo/basic-demo-2/misc.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/beautiful-racket-demo/basic-demo-2/misc.rkt b/beautiful-racket-demo/basic-demo-2/misc.rkt index 4d07c6b..4e2f7b9 100644 --- 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))) \ No newline at end of file