mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

expand out named let to letrec in the eval case

Browse source 
* module/ice-9/psyntax.scm: In the eval case, expand out named let to
  letrec.
* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2009-08-21 00:37:39 +02:00
parent 8a30946f7f
commit 81b30a35f7
2 changed files with 6334 additions and 6365 deletions
Download patch file Download diff file Expand all files Collapse all files

12695
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

4
module/ice-9/psyntax.scm
View file

@ -467,7 +467,6 @@
,@(if docstring (list docstring) '())
,exp)
src)))))
(define build-case-lambda
(lambda (src docstring body)
(case (fluid-ref *mode*)
@ -584,7 +583,8 @@
(build-application src (build-lexical-reference 'fun src f-name f)
val-exps))))
(else (decorate-source
`(let ,f ,(map list vars val-exps) ,body-exp)
`(letrec ((,f (lambda ,vars ,body-exp)))
(,f ,@val-exps))
src))))))
(define build-letrec