Fix REPOSITION-FILE, HISTORY, locked file handle and other problems.

[pforth] / fth / system.fth

diff --git a/fth/system.fth b/fth/system.fth
index 0223ab0..b9c46f3 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