Sfoglia il codice sorgente

patched case when system import is not yet resolved

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6465 8c9fc860-2736-0410-a75d-ab315db34111
felixf 10 anni fa
parent
commit
286a9bce82
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxSemanticChecker.Mod

@@ -7751,7 +7751,7 @@ TYPE
 		BEGIN
 		BEGIN
 			import := currentScope.ownerModule.moduleScope.firstImport;
 			import := currentScope.ownerModule.moduleScope.firstImport;
 			WHILE(import # NIL) DO
 			WHILE(import # NIL) DO
-				IF (import.module = system.systemModule[Scanner.Lowercase]) OR (import.module = system.systemModule[Scanner.Uppercase]) THEN
+				IF (import.module.name = Global.SystemName) OR (import.module.name = Global.systemName)  THEN
 					RETURN;
 					RETURN;
 				END;
 				END;
 				import := import.nextImport;
 				import := import.nextImport;