diff options
Diffstat (limited to 'testsuite/t-catch.scm')
| -rw-r--r-- | testsuite/t-catch.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/t-catch.scm b/testsuite/t-catch.scm new file mode 100644 index 000000000..9cc3e0e14 --- /dev/null +++ b/testsuite/t-catch.scm @@ -0,0 +1,10 @@ +;; Test that nonlocal exits of the VM work. + +(begin + (define (foo thunk) + (catch #t thunk (lambda args args))) + (foo + (lambda () + (let ((a 'one)) + (1+ a))))) + |