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

[pforth] / fth / system.fth

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