Revert "Revert "suppress duplicate definition warnings, variables are hoisted""

This reverts commit 968c0b53df.
2014-02-08 03:18:13 +09:00 · 2014-02-08 03:18:13 +09:00 · b6637842e7
parent b0d955c771
commit b6637842e7
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
-             (define bindings (cadr expr))
-             (define body (cddr expr))
+             (set! bindings (cadr expr))
+             (set! body (cddr expr))
             (cons (cons (r 'lambda) (cons (map car bindings) body))
                   (map cadr bindings)))))))