# HG changeset patch # User blanchet # Date 1356608621 -3600 # Node ID 512dfe5e077fc9e138178ba1a10f5fdd275488c7 # Parent 293eb33d34364639725f1eada2a6e485595f89d6# Parent 36850cf745e79fab5dafa051e576db7587a26f8d merged diff -r 293eb33d3436 -r 512dfe5e077f src/Tools/Code/code_printer.ML --- a/src/Tools/Code/code_printer.ML Thu Dec 27 12:34:06 2012 +0100 +++ b/src/Tools/Code/code_printer.ML Thu Dec 27 12:43:41 2012 +0100 @@ -272,7 +272,7 @@ fun applify opn cls f fxy_ctxt p [] = p | applify opn cls f fxy_ctxt p ps = - (if (fixity BR fxy_ctxt) then enclose "(" ")" else Pretty.block) + (if fixity BR fxy_ctxt then enclose "(" ")" else Pretty.block) (p @@ enum "," opn cls (map f ps)); fun tuplify _ _ [] = NONE