version 0.7.1

[helm.git] / helm / ocaml / cic_disambiguation / pa_unicode_macro.ml

diff --git a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
index afc9f63afb142e188bc2972bc467ff7a46267d2b..dc15b8c8b2a264b7bd37783df30a0580528e9a8b 100644 (file)
--- a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
+++ b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
@@ -24,13 +24,18 @@
  *)
 
 let debug = false
-let debug_print = if debug then prerr_endline else ignore
+let debug_print s = if debug then prerr_endline s
 
-let loc = (0, 0)
+let loc =
+  let dummy_pos =
+    { Lexing.pos_fname = ""; Lexing.pos_lnum = -1; Lexing.pos_bol = -1;
+      Lexing.pos_cnum = -1 }
+  in
+  (dummy_pos, dummy_pos)
 
 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 _ =