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

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