testsuite/t-catch.scm

   1 ;; Test that nonlocal exits of the VM work.
   2
   3 (begin
   4   (define (foo thunk)
   5     (catch #t thunk (lambda args args)))
   6   (foo
   7    (lambda ()
   8      (let ((a 'one))
   9        (1+ a)))))
  10