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

Added comment that there is a comment in eval.c about how to make case

Browse source 
1.1 succeed.
This commit is contained in:
Marius Vollmer 2005-06-05 20:54:19 +00:00
parent 6642f7ace4
commit b8ad7a213a
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/tests/r5rs_pitfall.test
View file

@ -47,6 +47,9 @@
;; In thread: ;; In thread:
;; defines in letrec body ;; defines in letrec body
;; http://groups.google.com/groups?selm=87bsoq0wfk.fsf%40app.dial.idiom.com ;; http://groups.google.com/groups?selm=87bsoq0wfk.fsf%40app.dial.idiom.com
;; See eval.c for how to make this test succeed. Look for "r5rs pitfall".
(should-be-but-isnt 1.1 0 (should-be-but-isnt 1.1 0
(let ((cont #f)) (let ((cont #f))
(letrec ((x (call-with-current-continuation (lambda (c) (set! cont c) 0))) (letrec ((x (call-with-current-continuation (lambda (c) (set! cont c) 0)))