mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

internal definitions expand out to letrec* instead of letrec

Browse source 
* module/ice-9/psyntax.scm (chi-body): Internal definitions are now
  letrec* instead of letrec, following the R6RS.

* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-06-17 13:03:01 +02:00
parent 60d4b22448
commit 0f2b9f6252
2 changed files with 9361 additions and 9570 deletions
Download patch file Download diff file Expand all files Collapse all files

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

File diff suppressed because it is too large Load diff

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

@ -1483,7 +1483,7 @@
(loop (cdr bs) er r-cache)) (loop (cdr bs) er r-cache))
(loop (cdr bs) er-cache r-cache))))) (loop (cdr bs) er-cache r-cache)))))
(set-cdr! r (extend-env labels bindings (cdr r))) (set-cdr! r (extend-env labels bindings (cdr r)))
(build-letrec no-source #f (build-letrec no-source #t
(map syntax->datum var-ids) (map syntax->datum var-ids)
vars vars
(map (lambda (x) (map (lambda (x)