--- a/src/Pure/ML/ml_antiquote.ML Thu Jun 03 16:56:44 2010 +0200
+++ b/src/Pure/ML/ml_antiquote.ML Thu Jun 03 22:06:37 2010 +0200
@@ -46,7 +46,7 @@
fun declaration kind name scan = ML_Context.add_antiq name
(fn _ => scan >> (fn s => fn background =>
let
- val (a, background') = variant name background;
+ val (a, background') = variant (translate_string (fn "." => "_" | c => c) name) background;
val env = kind ^ " " ^ a ^ " = " ^ s ^ ";\n";
val body = "Isabelle." ^ a;
in (K (env, body), background') end));