Parsergen: abort on error.

[ocean] / csrc / parsergen.mdc

diff --git a/csrc/parsergen.mdc b/csrc/parsergen.mdc
index cfaa5c4124ac811ec67b974dac3ebb1e66dc1c71..6eb58bda6994d3547bf6b014e1774bab5e5c913c 100644 (file)
--- a/csrc/parsergen.mdc
+++ b/csrc/parsergen.mdc
@@ -2815,6 +2815,7 @@ one symbol for each line where newlines are allowed.
                                break;
                        tos = &p.stack[p.tos-1];
                        tos->indents += indents;
+                       exit(1);
                }
                free(tk);
                pop(&p, p.tos, NULL, do_free);