improved error message for no RETURN from function procedure

diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 3d3529f..909b3f7 100644 (file)
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -43,7 +43,7 @@ static struct errm {
 
        { M2_TOOLARGE,  "stack size of process too large"},
        { M2_TOOMANY,   "too many nested traps + handlers"},
-       { M2_NORESULT,  "no RETURN from procedure function"},
+       { M2_NORESULT,  "no RETURN from function procedure"},
        { M2_UOVFL,     "cardinal overflow"},
        { M2_FORCH,     "(warning) FOR-loop control variable was changed in the body"},
        { M2_UUVFL,     "cardinal underflow"},