X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_core.c;fp=csrc%2Fpf_core.c;h=0564a65b62d89e5b641d293286c95e99c544f5c8;hb=90975d261c7ab39186c75d8700261faab3427de7;hp=41fa5f718226c47885fbe541452246708c8f1747;hpb=336369a5b94ae6588fb891606d37053f9fb8c2d6;p=debian%2Fpforth

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 41fa5f7..0564a65 100644
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -371,12 +371,11 @@ cell_t pfIncludeFile( const char *FileName )
 	pfCopyMemory( &buffer[4], &FileName[len-numChars], numChars+1 );
 	CreateDicEntryC( ID_NOOP, buffer, 0 );
 	
-	Result = ffIncludeFile( fid );
+	Result = ffIncludeFile( fid ); /* Also close the file. */
 	
 /* Create a dictionary word named ;;;; for FILE? */
 	CreateDicEntryC( ID_NOOP, ";;;;", 0 );
 	
-	sdCloseFile(fid);
 	return Result;
 }