tentative subst-sexpand and change

[helm.git] / helm / software / components / grafite_parser / grafiteParser.ml

diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index 7fbd499680f728714ca305a7b0c50019b265c727..6c5175890581aedd33c2c24794b4cf459fcef1b7 100644 (file)
--- 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: [
@@ -744,7 +745,7 @@ EXTEND
         GrafiteAst.Tactic (loc, Some tac, punct)
     | punct = punctuation_tactical -> GrafiteAst.Tactic (loc, None, punct)
     | tac = ntactic; punct = punctuation_tactical ->
-        GrafiteAst.NTactic (loc, Some tac, punct)
+        GrafiteAst.NTactic (loc, tac, punct)
     | tac = non_punctuation_tactical; punct = punctuation_tactical ->
         GrafiteAst.NonPunctuationTactical (loc, tac, punct)
     | mac = macro; SYMBOL "." -> GrafiteAst.Macro (loc, mac)