From e939ab6db0a7e98732aa701b1cb653d68c8e1233 Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Thu, 24 Jun 1993 15:48:46 +0000
Subject: [PATCH] Fixed infinite loop

---
 lang/cem/cemcom.ansi/proto.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/cem/cemcom.ansi/proto.c b/lang/cem/cemcom.ansi/proto.c
index f50662a3..3e236c3a 100644
--- a/lang/cem/cemcom.ansi/proto.c
+++ b/lang/cem/cemcom.ansi/proto.c
@@ -402,7 +402,7 @@ call_proto(expp)
 	if (left != NILEXPR) {		/* in case of an error */
 		register struct type *tp = left->ex_type;
 
-		while (tp && tp->tp_fund != FUNCTION)
+		while (tp && tp->tp_fund != FUNCTION && tp != error_type)
 			tp = tp->tp_up;
 		if (tp && tp->tp_proto)
 			pl = tp->tp_proto;