parsergen: work-around for indent parsing problem.

[ocean] / csrc / parsergen.mdc

diff --git a/csrc/parsergen.mdc b/csrc/parsergen.mdc
index 47cbfc2e48c641ebf49c081ff95346110561cb02..b94bd3bbc8ff823180d0030a07191c82f8f72462 100644 (file)
--- a/csrc/parsergen.mdc
+++ b/csrc/parsergen.mdc
@@ -2600,7 +2600,7 @@ since the last state which could have been at the start of a line.
                        if (p.next.sym == TK_out) {
                                if (p.stack[p.tos-1].indents > p.stack[p.tos-1].starts_indented ||
                                    (p.stack[p.tos-1].indents == 1 &&
-                                    states[p.next.state].reduce_size > 1)) {
+                                    states[p.next.state].reduce_size != 1)) {
                                        p.stack[p.tos-1].indents -= 1;
                                        if (p.stack[p.tos-1].indents == p.stack[p.tos-1].starts_indented) {
                                                // no internal indent any more, reassess 'newline_permitted'