suppress duplicate definition warnings, variables are hoisted

2014-02-08 02:48:57 +09:00 · 2014-02-08 02:48:57 +09:00 · 15e95f82da
parent e52614a51e
commit 15e95f82da
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)))))))