adding letrec*

This commit is contained in:
Alex Shinn 2011-03-21 15:38:09 +09:00
parent 0a9bff353f
commit 3e5c928548

View file

@ -819,6 +819,11 @@
(list (list _error "no expansion for"
(list (rename 'strip-syntactic-closures) _expr)))))))))))
(define-syntax letrec*
(syntax-rules ()
((letrec* ((var val) ...) . body)
(let () (define var val) ... . body))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; modules