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

[pforth] / csrc / pf_inner.c

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index 59ddfff..0149da0 100644 (file)
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -1289,9 +1289,8 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
                        if( FileID )\r
                        {\r
                                SAVE_REGISTERS;\r
                        if( FileID )\r
                        {\r
                                SAVE_REGISTERS;\r

-                               Scratch = ffIncludeFile( FileID );\r
+                               Scratch = ffIncludeFile( FileID ); /* Also closes the file. */\r

                                LOAD_REGISTERS;\r
                                LOAD_REGISTERS;\r

-                               sdCloseFile( FileID );\r

                                if( Scratch ) M_THROW(Scratch);\r
                        }\r
                        else\r
                                if( Scratch ) M_THROW(Scratch);\r
                        }\r
                        else\r