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

27
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))))))))
@ -680,14 +685,14 @@
(define-library (scheme cxr) (define-library (scheme cxr)
(import (scheme base)) (import (scheme base))
(define (caaar p) (car (caar p))) (define (caaar p) (car (caar p)))
(define (caadr p) (car (cadr p))) (define (caadr p) (car (cadr p)))
(define (cadar p) (car (cdar p))) (define (cadar p) (car (cdar p)))
(define (caddr p) (car (cddr p))) (define (caddr p) (car (cddr p)))
(define (cdaar p) (cdr (caar p))) (define (cdaar p) (cdr (caar p)))
(define (cdadr p) (cdr (cadr p))) (define (cdadr p) (cdr (cadr p)))
(define (cddar p) (cdr (cdar p))) (define (cddar p) (cdr (cdar p)))
(define (cdddr p) (cdr (cddr p))) (define (cdddr p) (cdr (cddr p)))
(define (caaaar p) (caar (caar p))) (define (caaaar p) (caar (caar p)))
(define (caaadr p) (caar (cadr p))) (define (caaadr p) (caar (cadr p)))
(define (caadar p) (caar (cdar p))) (define (caadar p) (caar (cdar p)))