Change throw code for abort quote from -1 to -2.

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 3a3a60a..373e495 100644 (file)
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -36,7 +36,9 @@ decimal
 \r
 : (ABORT")  ( flag $message -- )\r
     swap\r
 \r
 : (ABORT")  ( flag $message -- )\r
     swap\r

-    IF count type cr abort\r
+    IF\r
+       count type cr\r
+       err_abortq throw\r

     ELSE drop\r
     THEN\r
 ;\r
     ELSE drop\r
     THEN\r
 ;\r

diff --git a/fth/system.fth b/fth/system.fth
index a7dd0d5..5cf36f8 100644 (file)
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -227,6 +227,7 @@
 \r
 \ Error codes defined in ANSI Exception word set.\r
 : ERR_ABORT         -1 ;   \ general abort\r
 \r
 \ Error codes defined in ANSI Exception word set.\r
 : ERR_ABORT         -1 ;   \ general abort\r

+: ERR_ABORTQ        -2 ;   \ for abort"\r

 : ERR_EXECUTING    -14 ;   \ compile time word while not compiling\r
 : ERR_PAIRS        -22 ;   \ mismatch in conditional\r
 : ERR_DEFER       -258 ;  \ not a deferred word\r
 : ERR_EXECUTING    -14 ;   \ compile time word while not compiling\r
 : ERR_PAIRS        -22 ;   \ mismatch in conditional\r
 : ERR_DEFER       -258 ;  \ not a deferred word\r


@@ -809,7 +810,8 @@ auto.init
 \ Now that we can load from files, load remainder of dictionary.\r
 \r
 trace-include on\r
 \ Now that we can load from files, load remainder of dictionary.\r
 \r
 trace-include on\r

-trace-stack on\r
+\ Turn this OFF if you do not want to see the contents of the stack after each entry.\r
+trace-stack off\r

 \r
 include loadp4th.fth\r
 \r
 \r
 include loadp4th.fth\r
 \r