Browse Source

fix printing of the "IN" namespace clause in the lowercase mode

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8654 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 6 years ago
parent
commit
ea608944fd
1 changed files with 2 additions and 2 deletions
  1. 2 2
      source/FoxPrintout.Mod

+ 2 - 2
source/FoxPrintout.Mod

@@ -1356,7 +1356,7 @@ TYPE
 			IF (x.scope = NIL) OR (x.scope.ownerModule = NIL) THEN context := SyntaxTree.invalidIdentifier ELSE context := x.scope.ownerModule.context END;
 			IF (x.scope = NIL) OR (x.scope.ownerModule = NIL) THEN context := SyntaxTree.invalidIdentifier ELSE context := x.scope.ownerModule.context END;
 			Identifier(x.moduleName);
 			Identifier(x.moduleName);
 			IF (x.context # SyntaxTree.invalidIdentifier) & (x.context#context) THEN
 			IF (x.context # SyntaxTree.invalidIdentifier) & (x.context#context) THEN
-				w.String(" IN ");
+				Keyword(" IN ");
 				Identifier(x.context)
 				Identifier(x.context)
 			END;
 			END;
 		END VisitImport;
 		END VisitImport;
@@ -1847,7 +1847,7 @@ TYPE
 				Keyword("MODULE ");
 				Keyword("MODULE ");
 				Identifier(x.name);
 				Identifier(x.name);
 				IF (x.context # SyntaxTree.invalidIdentifier) & (x.context#Global.A2Name) THEN
 				IF (x.context # SyntaxTree.invalidIdentifier) & (x.context#Global.A2Name) THEN
-					w.String(" IN ");
+					Keyword(" IN ");
 					Identifier(x.context)
 					Identifier(x.context)
 				END;
 				END;