|
@@ -379,6 +379,7 @@ TYPE
|
|
prevScope := currentScope;
|
|
prevScope := currentScope;
|
|
currentScope := x.recordScope;
|
|
currentScope := x.recordScope;
|
|
VariableList(x.recordScope.firstVariable);
|
|
VariableList(x.recordScope.firstVariable);
|
|
|
|
+ IF x.recordScope.procedures # NIL THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
|
|
currentScope := prevScope;
|
|
currentScope := prevScope;
|
|
Indent; Keyword("END" );
|
|
Indent; Keyword("END" );
|
|
END;
|
|
END;
|