tests: More basic tests.

[goals.git] / src / parser.mly

diff --git a/src/parser.mly b/src/parser.mly
index 7146a99..9d6988b 100644 (file)
--- a/src/parser.mly
+++ b/src/parser.mly
@@ -38,7 +38,7 @@ let find_on_include_path filename =
          let path = inc // filename in
          if Sys.file_exists path then path else loop incs
     in
-    loop Cmdline.includes
+    loop (Cmdline.includes ())
   )
 
 let do_include env loc filename optflag file =
@@ -118,6 +118,10 @@ stmt:
       let name, params = $1 in
       name, Ast.EGoalDefn ($loc, (params, [], [], Some $2))
     }
+    | GOAL ID
+    {
+      $2, Ast.EGoalDefn ($loc, ([], [], [], None))
+    }
     | option(PURE) FUNCTION ID params_decl return_decl EQUALS CODE
     {
       $3, Ast.EFuncDefn ($loc, ($4, $5, $1 <> None, $7))