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

Merge commit '1cd63115be'

Browse source 
Conflicts:
	module/language/tree-il/peval.scm
	test-suite/tests/peval.test
This commit is contained in:
Andy Wingo 2012-04-26 23:08:14 +02:00
commit 79d29f96c7
4 changed files with 361 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/peval.test
View file

@ -760,15 +760,15 @@
;; This test checks that the `start' binding is indeed residualized.
;; See the `referenced?' procedure in peval's `prune-bindings'.
(let ((pos 0))
(set! pos 1) ;; Cause references to `pos' to residualize.
(let ((here (let ((start pos)) (lambda () start))))
(set! pos 1) ;; Cause references to `pos' to residualize.
(here)))
(let (pos) (_) ((const 0))
(seq
(set! (lexical pos _) (const 1))
(let (here) (_) (_)
(call (lexical here _))))))
(let (here) (_) (_)
(seq
(set! (lexical pos _) (const 1))
(call (lexical here _))))))
(pass-if-peval
;; FIXME: should this one residualize the binding?
(letrec ((a a))