summaryrefslogtreecommitdiff
path: root/test-suite/vm/t-catch.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/vm/t-catch.scm')
-rw-r--r--test-suite/vm/t-catch.scm10
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)))))
-