From: ceriel <none@none>
Date: Fri, 20 Nov 1992 13:37:49 +0000 (+0000)
Subject: Fix: MkCoercion did not handle error_type
X-Git-Tag: release-5-5~378
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=7d34ba62a770c58fdbd030edff4c21e25aca3a78;p=ack.git

Fix: MkCoercion did not handle error_type
---

diff --git a/lang/m2/comp/chk_expr.c b/lang/m2/comp/chk_expr.c
index ba1b2364d..3faefddda 100644
--- a/lang/m2/comp/chk_expr.c
+++ b/lang/m2/comp/chk_expr.c
@@ -72,7 +72,7 @@ MkCoercion(pnd, tp)
 
 	if (nd_tp == tp || nd_tp->tp_fund == T_STRING /* Why ??? */) return;
 	nd_tp = BaseType(nd_tp);
-	if (nd->nd_class == Value) {
+	if (nd->nd_class == Value && nd->nd_type != error_type && tp != error_type) {
 		if (nd_tp->tp_fund == T_REAL) {
 			switch(tp->tp_fund) {
 			case T_REAL: