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

cosmetic changes

This commit is contained in:
Yuichi Nishiwaki 2014-02-09 03:15:50 +09:00
parent 49e5e3085b
commit a08a19bed1
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
piclib/built-in.scm
View File

@ -280,14 +280,19 @@
(lambda (form r compare) (lambda (form r compare)
(let ((bindings (cadr form)) (let ((bindings (cadr form))
(body (cddr form))) (body (cddr form)))
(let ((vars (map car bindings))) (let ((vars (map car bindings))
(gensym (lambda (var)
(string->symbol
(string-append
"parameterize-"
(symbol->string var))))))
`(,(r 'let) (,@(map (lambda (var) `(,(r 'let) (,@(map (lambda (var)
`(,(r var) (,var))) `(,(r (gensym var)) (,var)))
vars)) vars))
,@bindings ,@bindings
(,(r 'let) ((,(r 'result) (begin ,@body))) (,(r 'let) ((,(r 'result) (begin ,@body)))
,@(map (lambda (var) ,@(map (lambda (var)
`(,(r 'parameter-set!) ,var ,(r var))) `(,(r 'parameter-set!) ,var ,(r (gensym var))))
vars) vars)
,(r 'result)))))))) ,(r 'result))))))))