X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaEngine.ml;h=ef685c5950f10408ed1f16d094f4d650f04005c0;hb=f68f58e17f9be1d3760dd79064fb950d1aa885e1;hp=ab357e5c356e72d5001605ec87bc005448746692;hpb=99a43adccee356e3d6057f67114c5cf08518b3f3;p=helm.git diff --git a/matita/matita/matitaEngine.ml b/matita/matita/matitaEngine.ml index ab357e5c3..ef685c595 100644 --- a/matita/matita/matitaEngine.ml +++ b/matita/matita/matitaEngine.ml @@ -31,10 +31,8 @@ let debug = false ;; let debug_print = if debug then prerr_endline else ignore ;; let disambiguate_command lexicon_status_ref grafite_status cmd = - let baseuri = grafite_status#baseuri in let lexicon_status,cmd = - GrafiteDisambiguate.disambiguate_command ~baseuri - !lexicon_status_ref cmd + GrafiteDisambiguate.disambiguate_command !lexicon_status_ref cmd in lexicon_status_ref := lexicon_status; grafite_status,cmd