add missing test for continuation change

2010-07-16 20:55:07 -06:00 · 2010-07-16 20:55:07 -06:00 · 1ea0880f65
commit 1ea0880f65
parent fd5213b0ef
1 changed files with 8 additions and 0 deletions
--- a/collects/tests/racket/basic.rktl
+++ b/collects/tests/racket/basic.rktl
@ -1698,6 +1698,14 @@
  (test 42 test-call/cc (lambda (k)
                          (call-with-exception-handler k (lambda () (add1 (raise 42))))))

+  (let ([x 0])
+    ;; Make sure inner `k2' doesn't escape using outer `k':
+    (let/cc k (+ 1 (dynamic-wind 
+                       (lambda () (set! x (add1 x)))
+                       (lambda () (let/cc k (k 2))) 
+                       void)))
+    (test 1 values x))
+
  ))