X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/b3ad2602f4c6a2236081ed2d913d4e03892182a6..90975d261c7ab39186c75d8700261faab3427de7:/csrc/pfcompil.c?ds=inline

diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c
index 025eebf..84546c4 100644
--- a/csrc/pfcompil.c
+++ b/csrc/pfcompil.c
@@ -250,6 +250,7 @@ PForthDictionary pfBuildDictionary( cell_t HeaderSize, cell_t CodeSize )
 	CreateDicEntryC( ID_FILL, "FILL", 0 );
 	CreateDicEntryC( ID_FIND, "FIND",  0 );
 	CreateDicEntryC( ID_FILE_CREATE, "CREATE-FILE",  0 );
+	CreateDicEntryC( ID_FILE_DELETE, "DELETE-FILE",  0 );
 	CreateDicEntryC( ID_FILE_OPEN, "OPEN-FILE",  0 );
 	CreateDicEntryC( ID_FILE_CLOSE, "CLOSE-FILE",  0 );
 	CreateDicEntryC( ID_FILE_READ, "READ-FILE",  0 );
@@ -926,7 +927,7 @@ ThrowCode ffOuterInterpreterLoop( void )
 }
 
 /***************************************************************
-** Include a file
+** Include then close a file
 ***************************************************************/
 
 ThrowCode ffIncludeFile( FileStream *InputFile )
@@ -962,6 +963,9 @@ ThrowCode ffIncludeFile( FileStream *InputFile )
 /* Pop file stream. */
 	ffPopInputStream();
 	
+/* ANSI spec specifies that this should also close the file. */
+	sdCloseFile(InputFile);
+
 	return exception;
 }