parser: Fix longstanding bug where "()" was required after CLI targets.

[goals.git] / src / parse.ml

diff --git a/src/parse.ml b/src/parse.ml
index 34ed38b..da42b87 100644 (file)
--- a/src/parse.ml
+++ b/src/parse.ml
@@ -38,7 +38,7 @@ let parse_file env lexbuf =
      failwithf "%a: parse error" string_position lexbuf
 
 let parse_expr lexbuf =
-  try Parser.expr Lexer.read lexbuf
+  try Parser.expr_only Lexer.read lexbuf
   with
   | SyntaxError msg ->
      failwithf "%a: %s" string_position lexbuf msg