1 files changed, 13 insertions, 0 deletions
diff --git a/original_jonesforth/test_exception.f b/original_jonesforth/test_exception.f
new file mode 100644
index 0000000..e8f57d5
--- /dev/null
+++ b/original_jonesforth/test_exception.f
@@ -0,0 +1,13 @@
+( -*- text -*- )
+
+: TEST4 PRINT-STACK-TRACE THROW ;
+
+: TEST3 0 TEST4 26 TEST4 ;
+
+: TEST2
+	['] TEST3 CATCH
+	?DUP IF ." TEST3 threw exception " . CR THEN
+	TEST3
+;
+
+: TEST TEST2 ;