changeset 56811 | b66639331db5 |
parent 56436 | 30ccec1e82fb |
child 57832 | 5b48f2047c24 |
--- a/src/Pure/ML/ml_antiquotation.ML Thu May 01 09:30:34 2014 +0200 +++ b/src/Pure/ML/ml_antiquotation.ML Thu May 01 09:30:35 2014 +0200 @@ -30,7 +30,7 @@ fun variant a ctxt = let val names = Names.get ctxt; - val (b, names') = Name.variant (Name.desymbolize false a) names; + val (b, names') = Name.variant (Name.desymbolize (SOME false) a) names; val ctxt' = Names.put names' ctxt; in (b, ctxt') end;