From: ceriel <none@none>
Date: Thu, 6 Jun 1996 07:37:02 +0000 (+0000)
Subject: Fix: compatibility check in RETURN statement
X-Git-Tag: release-5-5~46
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7f7f5f187f367f6c8a6c8712762d92e7a63af588;p=ack.git

Fix: compatibility check in RETURN statement
---

diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index f7bfa906f..094057914 100644
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -854,6 +854,9 @@ WalkStat(nd, exit_label, end_reached)
 			   assignment compatible with the result type of the
 			   function procedure (See Rep. 9.11).
 			*/
+			if (nd->nd_RIGHT->nd_symb == STRING) {
+				TryToString(nd->nd_RIGHT, func_type);
+			}
 			if (!ChkAssCompat(&(nd->nd_RIGHT), func_type, "RETURN")) {
 				break;
 			}