Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding letrec*

Browse source
This commit is contained in:
Alex Shinn 2011-03-21 15:38:09 +09:00
parent 0a9bff353f
commit 3e5c928548
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/init.scm
View file

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