From 9f8f8c1a9c48fb8a57afdfdead20871569564ae3 Mon Sep 17 00:00:00 2001
From: erikb <none@none>
Date: Thu, 20 Mar 1986 13:09:47 +0000
Subject: [PATCH] fixed a bug in check_*_expr()

---
 lang/cem/cemcom/ch7.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lang/cem/cemcom/ch7.c b/lang/cem/cemcom/ch7.c
index 8a10fec8b..9812e8f85 100644
--- a/lang/cem/cemcom/ch7.c
+++ b/lang/cem/cemcom/ch7.c
@@ -390,8 +390,8 @@ check_integral_type(expp, oper)
 	if (!is_integral_type(expr->ex_type))	{
 		expr_error(expr, "%s on non-integral type (%s)",
 			symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
+		erroneous2int(expp);
 	}
-	erroneous2int(expp);
 }
 
 int
@@ -424,6 +424,6 @@ check_arith_type(expp, oper)
 	if (!is_arith_type(expr->ex_type))	{
 		expr_error(expr, "%s on non-arithmetical type (%s)",
 			symbol2str(oper), symbol2str(expr->ex_type->tp_fund));
+		erroneous2int(expp);
 	}
-	erroneous2int(expp);
 }
-- 
2.34.1