mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Update peval tests for fix-letrec

Browse source 
* module/language/tree-il/fix-letrec.scm (fix-scc): Initial binding of
  letrec values is unspecified, not false.
* test-suite/tests/peval.test (pass-if-peval): Fix letrec before
  pevalling.  Update tests.  A couple got better, no regressions.
This commit is contained in:
Andy Wingo 2019-08-13 15:07:57 +02:00
parent dab19652f7
commit e2f8ccc5ba
2 changed files with 76 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/fix-letrec.scm
View file

@ -207,7 +207,7 @@
((and (lambda? init) (not (hashq-ref assigned sym)))
(make-fix src (list name) (list sym) (list init) body))
((memq sym (free-variables init fv-cache))
(make-let src (list name) (list sym) (list (make-const src #f))
(make-let src (list name) (list sym) (list (make-void src))
(make-seq src
(make-lexical-set src name sym init)
body)))