Added a local extension: procedure constants

1989-03-03 16:13:45 +00:00
parent e8aab09b4b
commit a1b4e28760
7 changed files with 25 additions and 10 deletions
--- a/lang/m2/comp/expression.g
+++ b/lang/m2/comp/expression.g
@@ -85,7 +85,9 @@ ConstExpression(t_node **pnd;)
 		  DO_DEBUG(options['C'], PrNode(nd, 0));

 		  if (ChkExpression(nd) &&
-		      ((nd)->nd_class != Set && (nd)->nd_class != Value)) {
+		      nd->nd_class != Set &&
+		      nd->nd_class != Value &&
+		      ! (options['l'] && nd->nd_class == Def && IsProc(nd))) {
 			error("constant expression expected");
 		  }