# HG changeset patch # User nipkow # Date 753286470 -3600 # Node ID fdc1c3424247bc9d114b088d6b3d857682f3dad4 # Parent 745affa0262b34651bbded40d9778434a2c46a3e changed application format for pretty-printer diff -r 745affa0262b -r fdc1c3424247 src/Pure/Syntax/extension.ML --- a/src/Pure/Syntax/extension.ML Fri Nov 12 11:43:35 1993 +0100 +++ b/src/Pure/Syntax/extension.ML Sun Nov 14 15:14:30 1993 +0100 @@ -236,7 +236,7 @@ fun parents T = Mfix ("(1'(_'))", T --> T, "", [0], max_pri); fun mkappl T = - Mfix ("_/(1'(_'))", [funT, argsT] ---> T, applC, [max_pri, 0], max_pri); + Mfix ("(1_/(1'(_')))", [funT, argsT] ---> T, applC, [max_pri, 0], max_pri); fun mkid T = Mfix ("_", idT --> T, "", [], max_pri);