X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2Fpa_unicode_macro.ml;h=4ba3541e5653cea8f25f0f95ec80dc633a080f3a;hb=c5d5bf37b1e4c4b9b499ed2cbfe27cf2ec181944;hp=b1a9153ca754d618cdd0034fbfc90e7a5ede65a0;hpb=358d1d55044347255aacb8daf03de0dbb18bc668;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
index b1a9153ca..4ba3541e5 100644
--- a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
+++ b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
@@ -30,7 +30,7 @@ let loc = (0, 0)
 
 let expand_unicode_macro macro =
   debug_print (Printf.sprintf "Expanding macro '%s' ..." macro);
-  let expansion = Macro.expand macro in
+  let expansion = CicTextualParser2Macro.expand macro in
   <:expr< $str:expansion$ >>
 
 let _ =