Revert "suppress duplicate definition warnings, variables are hoisted"

This reverts commit 15e95f82da.
2014-02-08 03:12:39 +09:00 · 2014-02-08 03:12:39 +09:00 · 968c0b53df
parent f051de77c5
commit 968c0b53df
1 changed files with 2 additions and 2 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -42,8 +42,8 @@
                         (cons (r 'lambda) (cons (map car bindings) body)))
                   (cons name (map cadr bindings))))
           (begin
-             (set! bindings (cadr expr))
-             (set! body (cddr expr))
+             (define bindings (cadr expr))
+             (define body (cddr expr))
             (cons (cons (r 'lambda) (cons (map car bindings) body))
                   (map cadr bindings)))))))