oceani: accept newlines at start of {block}

This  is needed for

~~~~~~
program {
code
}
~~~~~~

to work.

Signed-off-by: NeilBrown <neil@brown.name>

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 8997785611e23721220bcacae040764b46a138ce..972f7964e21e43b5c76aa78e50895e244796b49d 100644 (file)
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -1285,7 +1285,9 @@ list.
        Close -> }
                | NEWLINE }
        Block -> Open Statementlist Close ${ $0 = $<2; }$
+               | Open Newlines Statementlist Close ${ $0 = $<3; }$
                | Open SimpleStatements } ${ $0 = reorder_bilist($<2); }$
+               | Open Newlines SimpleStatements } ${ $0 = reorder_bilist($<3); }$
                | : Statementlist ${ $0 = $<2; }$
                | : SimpleStatements ${ $0 = reorder_bilist($<2); }$