Improved previous fix

1993-01-19 15:33:35 +00:00
parent 3d9aebdd69
commit 85fd09415b
2 changed files with 2 additions and 1 deletions
--- a/lang/m2/comp/defmodule.c
+++ b/lang/m2/comp/defmodule.c
@@ -115,6 +115,7 @@ GetDefinitionModule(id, incr)
 		else {
 			if (!is_anon_idf(id) && GetFile(id->id_text)) {

+				char *f = FileName;
 				DefModule();
 				df = lookup(id, GlobalScope, D_IMPORTED, 0);
 				if (level == 1 &&
@@ -135,6 +136,7 @@ GetDefinitionModule(id, incr)
 					else Modules = n;
 					nd_end = n;
 				}
+				free(f);
 			}
 			else {
 				df = lookup(id, GlobalScope, D_IMPORTED, 0);