Added (length)

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

diff --git a/debugging.4th b/debugging.4th
index 54e17a5..907f832 100644 (file)
--- a/debugging.4th
+++ b/debugging.4th
@@ -38,3 +38,6 @@
 
     trace
 ;
+
+: abort-with-trace
+    stack-trace abort ;