Moved source to src directory.

[scheme.forth.jl.git] / catch-throw.4th

diff --git a/catch-throw.4th b/catch-throw.4th
deleted file mode 100644 (file)
index 9192082..0000000
--- a/catch-throw.4th
+++ /dev/null
@@ -1,29 +0,0 @@
-\ Exception handling
-
-variable handler
-0 handler !
-
-: catch ( cfa -- exception# | 0 )
-    psp@ >R
-    handler @ >R
-    rsp@ handler !
-    execute
-    R> handler !
-    R> drop
-    0
-;
-
-: throw ( ... exception# -- ... exception# )
-    ?dup 0= if exit then
-
-    handler @ ?dup 0= if
-        ." Aborting: Uncaught exception " . ." ." cr
-        abort
-    then
-
-    rsp!
-    R> handler !
-    
-    R> swap >R
-    psp! drop R>
-;