delinted somewhat

1988-10-13 15:43:23 +00:00
parent 1cb464b8b8
commit 2b111a8ba6
8 changed files with 50 additions and 51 deletions
--- a/lang/m2/comp/defmodule.c
+++ b/lang/m2/comp/defmodule.c
@@ -105,6 +105,7 @@ GetDefinitionModule(id, incr)
 		ForeignFlag = 0;
 		DefId = id;
 		open_scope(CLOSEDSCOPE);
+		vis = CurrVis;
 		if (!strcmp(id->id_text, "SYSTEM")) {
 			do_SYSTEM();
 			df = lookup(id, GlobalScope, D_IMPORTED, 0);
@@ -138,7 +139,6 @@ GetDefinitionModule(id, incr)
 				df = lookup(id, GlobalScope, D_IMPORTED, 0);
 				newsc->sc_name = id->id_text;
 			}
-			vis = CurrVis;
 		}
 		close_scope(SC_CHKFORW);
 		if (! df) {