Moved source to src directory.

[scheme.forth.jl.git] / debugging.4th

diff --git a/debugging.4th b/debugging.4th
deleted file mode 100644 (file)
index 907f832..0000000
--- a/debugging.4th
+++ /dev/null
@@ -1,43 +0,0 @@
-\ Words useful for debugging
-
-: return-depth
-    RSP@ RSP0 - 1- ;
-
-: stack-trace
-    RSP@ RSP0 1+ do
-        i 0> if
-            i @ 1- dup 0> if
-                @ dup 0> if
-                    >name dup 0> if
-                        cr .name
-                    else
-                        cr ." ***"
-                        drop
-                    then
-                else
-                    cr ." ***"
-                    drop
-                then
-            else
-                cr ." ***"
-                drop
-            then
-        else
-            cr ." ***"
-            drop
-        then
-                
-        loop ;
-
-: trace
-    cr ." ---" cr
-    ." Return stack depth:" return-depth . cr
-    ." Stack trace:"
-    stack-trace
-    cr ." ---" cr
-
-    trace
-;
-
-: abort-with-trace
-    stack-trace abort ;