From b7b6db973b2b224c98d0d098b187cc22178ff3e2 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 6 May 2007 19:14:02 +0000
Subject: [PATCH] Missing type check for character comparison in EQUAL

---
 src/c/predicate.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/predicate.d b/src/c/predicate.d
index 94f40221c..ddd27407e 100644
--- a/src/c/predicate.d
+++ b/src/c/predicate.d
@@ -338,7 +338,7 @@ BEGIN:
 		return (tx == ty) && ecl_eql(x->complex.real, y->complex.real) &&
 			ecl_eql(x->complex.imag, y->complex.imag);
 	case t_character:
-		return(CHAR_CODE(x) == CHAR_CODE(y));
+		return (tx == ty) && (CHAR_CODE(x) == CHAR_CODE(y));
 	case t_base_string:
 #ifdef ECL_UNICODE
 	case t_string: