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

diff --git a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
index 4ba3541e5..dc15b8c8b 100644
--- a/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
+++ b/helm/ocaml/cic_disambiguation/pa_unicode_macro.ml
@@ -26,7 +26,12 @@
 let debug = false
 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);