From: NeilBrown <neil@brown.name>
Date: Tue, 30 Apr 2019 06:23:21 +0000 (+1000)
Subject: oceani: fix up test program.
X-Git-Tag: JamisonCreek-3~32
X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=commitdiff_plain;h=99480873737f9aed769901f86c39d074982368b3

oceani: fix up test program.

The messages being printed didn't make sense - weird.

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

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 0760674..97fa311 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -3299,12 +3299,12 @@ Fibonacci, and performs a binary search for a number.
 		/* If a variable is not used after the 'if', no
 		 * merge happens, so types can be different
 		 */
-		if A * 2 > B:
+		if A > B * 2:
 			double:string = "yes"
 			print A, "is more than twice", B, "?", double
 		else:
-			double := A*2
-			print "double", A, "is only", double
+			double := B*2
+			print "double", B, "is", double
 
 		a : number
 		a = A;