src/Pure/ML/ml_antiquotation.ML
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;