conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

suppress duplicate definition warnings, variables are hoisted

This commit is contained in:
Yuichi Nishiwaki 2014-02-08 02:48:57 +09:00
parent e52614a51e
commit 15e95f82da
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
piclib/built-in.scm
View File

@ -42,8 +42,8 @@
(cons (r 'lambda) (cons (map car bindings) body))) (cons (r 'lambda) (cons (map car bindings) body)))
(cons name (map cadr bindings)))) (cons name (map cadr bindings))))
(begin (begin
(define bindings (cadr expr)) (set! bindings (cadr expr))
(define body (cddr expr)) (set! body (cddr expr))
(cons (cons (r 'lambda) (cons (map car bindings) body)) (cons (cons (r 'lambda) (cons (map car bindings) body))
(map cadr bindings))))))) (map cadr bindings)))))))