parser: allow expressions for throw

Fixes #97
usagi-coffee · Nov 18, 2024 · 08943fe · 08943fe
1 parent b1dad3e
commit 08943fe
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/grammar.js b/grammar.js
@@ -1214,7 +1214,7 @@ module.exports = grammar({
           seq(kw("NEXT"), field("label", optional($.identifier))),
           seq(kw("RETRY"), field("label", optional($.identifier))),
           seq(kw("RETURN"), choice(seq(kw("ERROR")), kw("NO-APPLY"))),
-          seq(kw("THROW"), $.new_expression)
+          seq(kw("THROW"), $._expression)
         ),
         $._terminator
       ),

diff --git a/test/corpus/basic.txt b/test/corpus/basic.txt
@@ -1642,6 +1642,7 @@ CATCH and FINALLY statements
 DO TRANSACTION:
   CATCH e AS CLASS Progress.Lang.SysError:
     MESSAGE "sys error" VIEW-AS ALERT-BOX.
+    UNDO, THROW e.
   END.
   CATCH e AS Progress.Lang.Error:
     MESSAGE "other error" VIEW-AS ALERT-BOX.
@@ -1668,6 +1669,8 @@ END.
             statement: (identifier)
             (string_literal)
             (identifier)
+            (identifier))
+          (undo_statement
             (identifier))))
       (catch_statement
         variable: (identifier)