Fix: compatibility check in RETURN statement

diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index f7bfa90..0940579 100644 (file)
--- 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;
                        }