Преглед изворни кода

Patched missing import in cellnet

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6905 8c9fc860-2736-0410-a75d-ab315db34111
felixf пре 8 година
родитељ
комит
45c36f40bf
1 измењених фајлова са 4 додато и 0 уклоњено
  1. 4 0
      source/FoxPrintout.Mod

+ 4 - 0
source/FoxPrintout.Mod

@@ -1491,6 +1491,10 @@ TYPE
 			prevScope := currentScope;
 			prevScope := currentScope;
 			currentScope := x;
 			currentScope := x;
 			(* ASSERT(currentScope.outerScope = prevScope); (* sanity check *) *)
 			(* ASSERT(currentScope.outerScope = prevScope); (* sanity check *) *)
+			WITH x: SyntaxTree.CellScope DO
+				IF x.firstImport # NIL THEN ImportList(x.firstImport) END;
+			ELSE
+			END;
 			IF x.firstConstant # NIL THEN ConstantList(x.firstConstant); END;
 			IF x.firstConstant # NIL THEN ConstantList(x.firstConstant); END;
 			IF x.firstTypeDeclaration # NIL THEN TypeDeclarationList(x.firstTypeDeclaration); END;
 			IF x.firstTypeDeclaration # NIL THEN TypeDeclarationList(x.firstTypeDeclaration); END;
 			IF x.firstVariable # NIL THEN Indent;  Keyword("VAR " );  VariableList(x.firstVariable);  END;
 			IF x.firstVariable # NIL THEN Indent;  Keyword("VAR " );  VariableList(x.firstVariable);  END;