author | blanchet |
Thu, 27 Dec 2012 12:43:41 +0100 | |
changeset 50622 | 512dfe5e077f |
parent 50621 | 293eb33d3436 (current diff) |
parent 50618 | 36850cf745e7 (diff) |
child 50623 | f104b10af6e7 |
--- 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