From: NeilBrown <neil@brown.name>
Date: Sun, 12 Oct 2014 23:39:06 +0000 (+1100)
Subject: oceani: accept newlines at start of {block}
X-Git-Tag: FallsCreek~2
X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=commitdiff_plain;h=99eb171de4635a0b17324141a32943f0e3f7a150

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 8997785..972f796 100644
--- 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); }$