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

View File

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