X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/336369a5b94ae6588fb891606d37053f9fb8c2d6..90975d261c7ab39186c75d8700261faab3427de7:/csrc/pfcompil.c

diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c
index dcb386f..84546c4 100644
--- a/csrc/pfcompil.c
+++ b/csrc/pfcompil.c
@@ -927,7 +927,7 @@ ThrowCode ffOuterInterpreterLoop( void )
 }
 
 /***************************************************************
-** Include a file
+** Include then close a file
 ***************************************************************/
 
 ThrowCode ffIncludeFile( FileStream *InputFile )
@@ -963,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;
 }