X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;fp=csrc%2Foceani.mdc;h=2f3c9731e9ed703ad095a954855bd85cd43c20e7;hp=0778da21115f81acb7018fdd3bae8655e0af7428;hb=0fff05884fe4b40c86252e89fb16f307309299cd;hpb=ae5eb8c9a77d3d5c08db91ae0ca1f86762172a79

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 0778da2..2f3c973 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -2969,10 +2969,17 @@ function will be needed.
 	| SimpleFieldList EOL ${ $0 = $<SFL; }$
 
 	FieldLines -> SimpleFieldList Newlines ${ $0 = $<SFL; }$
-	| FieldLines SimpleFieldList Newlines ${
-		$SFL->prev = $<FL;
-		$0 = $<SFL;
-	}$
+	| FieldLines SimpleFieldList Newlines ${ {
+		struct fieldlist *f = $<SFL;
+
+		if (f) {
+			$0 = f;
+			while (f->prev)
+				f = f->prev;
+			f->prev = $<FL;
+		} else
+			$0 = $<FL;
+	} }$
 
 	SimpleFieldList -> Field ${ $0 = $<F; }$
 	| SimpleFieldList ; Field ${