Make declared variavles settable in the REPL

2012-06-29 21:28:59 +02:00 · 2012-06-29 21:28:59 +02:00 · bae7a4044f
commit bae7a4044f
parent cabb9ca992
1 changed files with 4 additions and 1 deletions
--- a/bracket/bracket-lang.rkt
+++ b/bracket/bracket-lang.rkt
@ -14,6 +14,9 @@
 (define-syntax (DeclareVars stx)
  (syntax-case stx ()
    [(_ sym ...)
-     #'(begin (define sym 'sym) ...)]))
+     #'(begin 
+         (define sym 'sym) ...
+         (set! sym 'sym) ...)]))
+