# 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);