From: ceriel <none@none>
Date: Thu, 28 Jan 1988 14:05:34 +0000 (+0000)
Subject: Yet another fix. ChkUnOper can also be called with a COERCION operator,
X-Git-Tag: release-5-5~3641
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=72e13f3a5a77158fcff1d5e44778d259984ca2f6;p=ack.git

Yet another fix. ChkUnOper can also be called with a COERCION operator,
when NEW and DISPOSE are expanded
---

diff --git a/lang/m2/comp/chk_expr.c b/lang/m2/comp/chk_expr.c
index bfb77440d..c5674874a 100644
--- a/lang/m2/comp/chk_expr.c
+++ b/lang/m2/comp/chk_expr.c
@@ -914,6 +914,7 @@ ChkUnOper(expp)
 	register t_node *right = expp->nd_right;
 	register t_type *tpr;
 
+	if (expp->nd_symb == COERCION) return 1;
 	if (expp->nd_symb == '(') {
 		*expp = *right;
 		free_node(right);