with-barrier.scm

   1 (define a)
   2
   3 ;; entering a barrier
   4 (with-continuation-barrier
   5  (lambda ()
   6    (call/cc
   7     (lambda (k)
   8       (set! a k)
   9       1
  10       ))))
  11
  12 (a) ;exception!
  13
  14
  15 ;;;; leaving a barrier
  16 (call/cc
  17  (lambda (k)
  18    (set! a k)
  19    1
  20    ))
  21
  22 (with-continuation-barrier
  23   (lambda () (a))) ;exception!