diff options
Diffstat (limited to 'test-suite/vm/t-catch.scm')
-rw-r--r-- | test-suite/vm/t-catch.scm | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/test-suite/vm/t-catch.scm b/test-suite/vm/t-catch.scm deleted file mode 100644 index 9cc3e0e14..000000000 --- a/test-suite/vm/t-catch.scm +++ /dev/null @@ -1,10 +0,0 @@ -;; 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))))) - |