From Aleksej,

[pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 0223ab0..a7dd0d5 100644 (file)
--- a/fth/system.fth
+++ b/fth/system.fth
@@ -738,16 +738,14 @@ variable TRACE-INCLUDE
                 drop ." Could not find file " $type cr abort\r
         ELSE ( -- $filename good-fid )\r
                 swap include.mark.start\r
                 drop ." Could not find file " $type cr abort\r
         ELSE ( -- $filename good-fid )\r
                 swap include.mark.start\r

-                dup >r   \ save fid for close-file\r

                 depth >r\r
                 depth >r\r

-                include-file\r
+                include-file    \ will also close the file\r

                 depth 1+ r> -\r
                 IF\r
                         ." Warning: stack depth changed during include!" cr\r
                         .s cr\r
                         0sp\r
                 THEN\r
                 depth 1+ r> -\r
                 IF\r
                         ." Warning: stack depth changed during include!" cr\r
                         .s cr\r
                         0sp\r
                 THEN\r

-                r> close-file drop\r

                 include.mark.end\r
         THEN\r
         trace-include @\r
                 include.mark.end\r
         THEN\r
         trace-include @\r


@@ -822,6 +820,3 @@ FREEZE    \ prevent forgetting below this point
 \r
 .( Dictionary compiled, save in "pforth.dic".) cr\r
 c" pforth.dic" save-forth\r
 \r
 .( Dictionary compiled, save in "pforth.dic".) cr\r
 c" pforth.dic" save-forth\r

-\r
-\ Save the dictionary in "pfdicdat.h" file so pForth can be compiled for standalone mode.\r
-SDAD\r