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

minor tweaks to a peval test

Browse source 
* test-suite/tests/peval.test: Update mutable var test to really ensure
  that the function can't inline.
This commit is contained in:
Andy Wingo 2012-04-13 15:13:19 -07:00
parent a36e7870c3
commit 1cd63115be
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -754,13 +754,13 @@
;; This test checks that the `start' binding is indeed residualized. ;; This test checks that the `start' binding is indeed residualized.
;; See the `referenced?' procedure in peval's `prune-bindings'. ;; See the `referenced?' procedure in peval's `prune-bindings'.
(let ((pos 0)) (let ((pos 0))
(set! pos 1) ;; Cause references to `pos' to residualize.
(let ((here (let ((start pos)) (lambda () start)))) (let ((here (let ((start pos)) (lambda () start))))
(set! pos 1) ;; Cause references to `pos' to residualize.
(here))) (here)))
(let (pos) (_) ((const 0)) (let (pos) (_) ((const 0))
(begin (let (here) (_) (_)
(set! (lexical pos _) (const 1)) (begin
(let (here) (_) (_) (set! (lexical pos _) (const 1))
(apply (lexical here _)))))) (apply (lexical here _))))))
(pass-if-peval (pass-if-peval