allow qualified names;

--- 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));