X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c..a1f4e52df60d8f26327ed57f5a9e7b70d0a04273:/fth/system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 0223ab0..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
@@ -738,16 +739,14 @@ variable TRACE-INCLUDE
                 drop ." Could not find file " $type cr abort
         ELSE ( -- $filename good-fid )
                 swap include.mark.start
-                dup >r   \ save fid for close-file
                 depth >r
-                include-file
+                include-file    \ will also close the file
                 depth 1+ r> -
                 IF
                         ." Warning: stack depth changed during include!" cr
                         .s cr
                         0sp
                 THEN
-                r> close-file drop
                 include.mark.end
         THEN
         trace-include @
@@ -811,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
 
@@ -822,6 +822,3 @@ FREEZE    \ prevent forgetting below this point
 
 .( Dictionary compiled, save in "pforth.dic".) cr
 c" pforth.dic" save-forth
-
-\ Save the dictionary in "pfdicdat.h" file so pForth can be compiled for standalone mode.
-SDAD