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 bfb7744..c567487 100644 (file)
--- 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);