git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7273 8c9fc860-2736-0410-a75d-ab315db34111
@@ -379,6 +379,7 @@ TYPE
prevScope := currentScope;
currentScope := x.recordScope;
VariableList(x.recordScope.firstVariable);
+ IF x.recordScope.procedures # NIL THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
currentScope := prevScope;
Indent; Keyword("END" );
END;