From dff21c2c58c0087025f8dcf5b0ca12c5cb51a564 Mon Sep 17 00:00:00 2001
From: NeilBrown <neil@brown.name>
Date: Sat, 18 Dec 2021 21:22:56 +1100
Subject: [PATCH] oceani: remove all UNTESTED again.

Maybe there are still more to find - we don't have 100% yet..

Signed-off-by: NeilBrown <neil@brown.name>
---
 csrc/oceani-tests.mdc | 9 +++++++++
 csrc/oceani.mdc       | 4 ++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/csrc/oceani-tests.mdc b/csrc/oceani-tests.mdc
index 4e9f4e3..fdf5503 100644
--- a/csrc/oceani-tests.mdc
+++ b/csrc/oceani-tests.mdc
@@ -686,6 +686,15 @@ Test functions.  They don't return anything, so we need to get them to print
 		angular := to_polar(32, 23)
 		print angular.rho, angular.theta
 
+	func test2(n:number; s:string;) : (ret:number)
+		ret = n + $s
+
+	func random
+	return
+		n:number
+	do
+		n = 4 // xkcd:221
+
 ###### output: functions
 	done
 	1  done
diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index ad0d1b5..e16d56f 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -5784,7 +5784,7 @@ is a bit more interesting at this level.
 		$0 = declare_function(c, $<FN, $<Ar, $<Ty, NULL, $<Bl);
 	}$
 	| func FuncName ( OpenScope ArgsLine ) : ( ArgsLine ) Block Newlines ${
-		$0 = declare_function(c, $<FN, $<AL, NULL, $<AL2, $<Bl);	// UNTESTED
+		$0 = declare_function(c, $<FN, $<AL, NULL, $<AL2, $<Bl);
 	}$
 	| func FuncName IN OpenScope Args OUT OptNL return Type Newlines do Block Newlines ${
 		$0 = declare_function(c, $<FN, $<Ar, $<Ty, NULL, $<Bl);
@@ -5796,7 +5796,7 @@ is a bit more interesting at this level.
 		$0 = declare_function(c, $<FN, $<Ar, NULL, $<Ar2, $<Bl);
 	}$
 	| func FuncName NEWLINE OpenScope return IN Args OUT OptNL do Block Newlines ${
-		$0 = declare_function(c, $<FN, NULL, NULL, $<Ar, $<Bl);	// UNTESTED
+		$0 = declare_function(c, $<FN, NULL, NULL, $<Ar, $<Bl);
 	}$
 
 ###### print func decls
-- 
2.43.0