Error on unbalanced parentheses in rules section.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/scan.l b/src/scan.l
index 1a0dc8d..bc316be 100644
--- a/src/scan.l
+++ b/src/scan.l
@@ -738,7 +738,13 @@ nmstr[yyleng - 2 - end_is_ws] = '\0';  /* chop trailing brace */
                     return '(';
                 }
     "("         sf_push(); return '(';
-    ")"         sf_pop(); return ')';
+    ")"         {
+                    if (_sf_top_ix > 0) {
+                        sf_pop();
+                        return ')';
+                    } else
+                        synerr(_("unbalanced parenthesis"));
+                }
 
 	[/|*+?.(){}]	return (unsigned char) yytext[0];
 	.		RETURNCHAR;