From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Tue, 9 Jun 2009 13:15:18 +0000 (+0000)
Subject: ...
X-Git-Tag: make_still_working~3902
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=833b0c94d93d3fe66cecbf0b0f9edf1287669b75;p=helm.git

...
---

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index a9e5a56b5..1c918ac50 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -604,9 +604,9 @@ let eval_ng_tac (text, prefix_len, tac) =
            ) hyps,
           (text,prefix_len,concl))
        ) seqs)
-  | GrafiteAst.NAuto (_loc, params) ->
+  | GrafiteAst.NAuto (_loc, (l,a)) ->
       NTactics.auto_tac
-	~params
+	~params:(List.map (fun x -> "",0,x) l,a)
   | GrafiteAst.NCases (_loc, what, where) ->
       NTactics.cases_tac 
         ~what:(text,prefix_len,what)