X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fparser.mly;h=7146a999a47ee21ee00874b45f4572201902cdc2;hb=2a9d33a300ac414c21679c520bc6434d48f499a9;hp=7f606ef7f57dba27a73ef73f76e75bca8c057479;hpb=deb7edaccefe379139818e8b241844b9a0571651;p=goals.git

diff --git a/src/parser.mly b/src/parser.mly
index 7f606ef..7146a99 100644
--- a/src/parser.mly
+++ b/src/parser.mly
@@ -74,6 +74,7 @@ let do_include env loc filename optflag file =
 %token LEFT_PAREN
 %token LET
 %token OPTINCLUDE
+%token PURE
 %token RETURNING
 %token RIGHT_ARRAY
 %token RIGHT_PAREN
@@ -117,9 +118,9 @@ stmt:
       let name, params = $1 in
       name, Ast.EGoalDefn ($loc, (params, [], [], Some $2))
     }
-    | FUNCTION ID params_decl return_decl EQUALS CODE
+    | option(PURE) FUNCTION ID params_decl return_decl EQUALS CODE
     {
-      $2, Ast.EFuncDefn ($loc, ($3, $4, $6))
+      $3, Ast.EFuncDefn ($loc, ($4, $5, $1 <> None, $7))
     }
     | TACTIC_KEYWORD TACTIC params_decl EQUALS CODE
     {