newer version

1986-04-23 22:12:22 +00:00
parent e8977ebb57
commit c11efeb1fe
11 changed files with 437 additions and 299 deletions
--- a/lang/m2/comp/statement.g
+++ b/lang/m2/comp/statement.g
@@ -74,7 +74,12 @@ error("a module body has no result value");
 error("procedure \"%s\" has no result value", currentdef->df_idf->id_text);
 			  }
 			}
-	]?
+	|
+			{ if (currentdef->df_type->next) {
+error("procedure \"%s\" must return a value", currentdef->df_idf->id_text);
+			  }
+			}
+	]
 ]?
 ;