From a8f5615dcc9ab22080c4897babfad092885b1b6e Mon Sep 17 00:00:00 2001 From: burkphil Date: Tue, 6 Dec 2011 18:57:15 +0000 Subject: [PATCH] Change throw code for abort quote from -1 to -2. --- fth/misc1.fth | 4 +++- fth/system.fth | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/fth/misc1.fth b/fth/misc1.fth index 3a3a60a..373e495 100644 --- a/fth/misc1.fth +++ b/fth/misc1.fth @@ -36,7 +36,9 @@ decimal : (ABORT") ( flag $message -- ) swap - IF count type cr abort + IF + count type cr + err_abortq throw ELSE drop THEN ; diff --git a/fth/system.fth b/fth/system.fth index a7dd0d5..5cf36f8 100644 --- a/fth/system.fth +++ b/fth/system.fth @@ -227,6 +227,7 @@ \ Error codes defined in ANSI Exception word set. : ERR_ABORT -1 ; \ general abort +: ERR_ABORTQ -2 ; \ for abort" : ERR_EXECUTING -14 ; \ compile time word while not compiling : ERR_PAIRS -22 ; \ mismatch in conditional : ERR_DEFER -258 ; \ not a deferred word @@ -809,7 +810,8 @@ auto.init \ Now that we can load from files, load remainder of dictionary. trace-include on -trace-stack on +\ Turn this OFF if you do not want to see the contents of the stack after each entry. +trace-stack off include loadp4th.fth -- 2.20.1