X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_parser%2FgrafiteParser.ml;h=6c5175890581aedd33c2c24794b4cf459fcef1b7;hb=bf6f5b964bd4e6c16401a4bfab3c29d6824be22a;hp=b9c33232e70b61fb00d763594395d848efa7569c;hpb=42f25c258b0b199ee96dd8eaa3d44c86eb6916ab;p=helm.git

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index b9c33232e..6c5175890 100644
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -181,8 +181,9 @@ EXTEND
   ];
   using: [ [ using = OPT [ IDENT "using"; t = tactic_term -> t ] -> using ] ];
   ntactic: [
-    [ IDENT "napply"; t = tactic_term ->
-        GrafiteAst.NApply (loc, t)
+    [ IDENT "napply"; t = tactic_term -> GrafiteAst.NApply (loc, t)
+    | IDENT "nchange"; what = tactic_term; with_what = tactic_term -> 
+        GrafiteAst.NChange (loc, what, with_what)
     ]
   ];
   tactic: [