bugfix: method 'advance' now took in input concrete syntax since atm

pretty printing is not the inverse operation of parsing

diff --git a/helm/matita/matitaScript.ml b/helm/matita/matitaScript.ml
index acb73fb54909f90da93c260e12b201798c9b15d2..69334355fc6e60b4c4163276f74e134d72f5de13 100644 (file)
--- a/helm/matita/matitaScript.ml
+++ b/helm/matita/matitaScript.ml
@@ -114,7 +114,7 @@ class script ~(interpreter:MatitaTypes.interpreter) () =
       gui#main#showScriptMenuItem#set_active true
 
     method advance tactical =
-      let text = "\n" ^ TacticAstPp.pp_tactical tactical in
+      let text = "\n" ^ tactical in
       buf#insert ~iter:(buf#get_iter_at_mark (`NAME "locked")) text;
       let res = self#_forward () in
       if not (fst res) then begin

diff --git a/helm/matita/matitaScript.mli b/helm/matita/matitaScript.mli
index cdcb5a544863a5bccc1ebe416108655455e3b334..b1d32eb999774158c6ee6efd0007cc1442b6e28c 100644 (file)
--- a/helm/matita/matitaScript.mli
+++ b/helm/matita/matitaScript.mli
@@ -38,7 +38,7 @@ class type script =
       (** adds a tactical at current script execution point and execute it. Used
       * when the user uses buttons or console instead of directly editing the
       * script *)
-    method advance: DisambiguateTypes.tactical -> MatitaTypes.command_outcome
+    method advance: string -> MatitaTypes.command_outcome
   end
 
 val script: interpreter:MatitaTypes.interpreter -> script