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

letrec and let-values should be declared as aliases of letrec* and let*-values

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 08:37:33 -08:00
parent 38a3a0936d
commit d4ebf6c926
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
piclib/built-in.scm
View File

@ -160,7 +160,7 @@
(,(r 'let*) (,@(cdr bindings)) (,(r 'let*) (,@(cdr bindings))
,@body))))))) ,@body)))))))
(define-syntax letrec (define-syntax letrec*
(er-macro-transformer (er-macro-transformer
(lambda (form r compare) (lambda (form r compare)
(let ((bindings (cadr form)) (let ((bindings (cadr form))
@ -171,10 +171,10 @@
,@initials ,@initials
,@body)))))) ,@body))))))
(define-syntax letrec* (define-syntax letrec
(er-macro-transformer (er-macro-transformer
(lambda (form rename compare) (lambda (form rename compare)
`(,(rename 'letrec) ,@(cdr form))))) `(,(rename 'letrec*) ,@(cdr form)))))
(define-syntax do (define-syntax do
(er-macro-transformer (er-macro-transformer
@ -281,7 +281,7 @@
(define (cdar p) (cdr (car p))) (define (cdar p) (cdr (car p)))
(define (caar p) (car (car p))) (define (caar p) (car (car p)))
(define-syntax let-values (define-syntax let*-values
(er-macro-transformer (er-macro-transformer
(lambda (form r c) (lambda (form r c)
(let ((formals (cadr form))) (let ((formals (cadr form)))
@ -289,13 +289,13 @@
`(,(r 'let) () ,@(cddr form)) `(,(r 'let) () ,@(cddr form))
`(,(r 'call-with-values) (,(r 'lambda) () ,@(cdar formals)) `(,(r 'call-with-values) (,(r 'lambda) () ,@(cdar formals))
(,(r 'lambda) (,@(caar formals)) (,(r 'lambda) (,@(caar formals))
(,(r 'let-values) (,@(cdr formals)) (,(r 'let*-values) (,@(cdr formals))
,@(cddr form))))))))) ,@(cddr form)))))))))
(define-syntax let*-values (define-syntax let-values
(er-macro-transformer (er-macro-transformer
(lambda (form r c) (lambda (form r c)
`(,(r 'let-values) ,@(cdr form))))) `(,(r 'let*-values) ,@(cdr form)))))
(export values (export values
call-with-values call-with-values