Просмотр исходного кода

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 лет назад
Родитель
Сommit
286a9bce82
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      source/FoxSemanticChecker.Mod

+ 1 - 1
source/FoxSemanticChecker.Mod

@@ -7751,7 +7751,7 @@ TYPE
 		BEGIN
 			import := currentScope.ownerModule.moduleScope.firstImport;
 			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;
 				END;
 				import := import.nextImport;