From: NeilBrown <neil@brown.name>
Date: Sat, 11 Oct 2014 06:07:25 +0000 (+1100)
Subject: oceani: don't try to print a 'then' clause for a switch.
X-Git-Tag: FallsCreek~6
X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=commitdiff_plain;h=5ee1c8be5ae9055defa1f3ea29cbdf906ea51a52

oceani: don't try to print a 'then' clause for a switch.

'switch' doesn't have a 'then', so don't try to print it.

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

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index bd2c41a..47d5f8a 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -1814,13 +1814,18 @@ defined.
 			    cast(binode, cs->condpart)->op == Block) {
 				printf(":\n");
 				print_exec(cs->condpart, indent+1, bracket);
-				do_indent(indent, "then:\n");
-				print_exec(cs->thenpart, indent+1, bracket);
+				if (cs->thenpart) {
+					do_indent(indent, "then:\n");
+					print_exec(cs->thenpart, indent+1, bracket);
+				}
 			} else {
 				printf(" ");
 				print_exec(cs->condpart, 0, bracket);
-				printf(":\n");
-				print_exec(cs->thenpart, indent+1, bracket);
+				if (cs->thenpart) {
+					printf(":\n");
+					print_exec(cs->thenpart, indent+1, bracket);
+				} else
+					printf("\n");
 			}
 		}
 		for (cp = cs->casepart; cp; cp = cp->next) {