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

[helm.git] / helm / matita / matitaScript.ml

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