<< JunoOldUnparser.mesa (was OldUnparser.mesa)>> <<>> <> <> <> << Unparses a symbolic expression f and produces a rope. The designated subexpression culprit is bracketed in the resulting rope by a pair of ascii nulls. To avoid this, make no subexpression of f equal to culprit.>> DIRECTORY Rope, ParseTable; OldUnparser: DEFINITIONS = BEGIN Unparse: PROC[f: REF ANY, -- unparses Car[f], not f! culprit: REF ANY, margin: INTEGER, p: ParseTable.Handle, openCount: INT] RETURNS [Rope.ROPE]; LexemeToRope: PROC[f: REF ANY] RETURNS [Rope.ROPE]; END.