From c77f17cf19e25c4d1e0ac1a6ea8190eb096e8ab6 Mon Sep 17 00:00:00 2001
From: BT Templeton <bpt@hcoop.net>
Date: Mon, 16 Jul 2012 16:23:10 -0400
Subject: [PATCH] * src/fns.c (Feql): Use `scm_eqv_p'.

---
 src/fns.c | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/fns.c b/src/fns.c
index fd1568b804..6534f0065a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2010,10 +2010,7 @@ DEFUN ("eql", Feql, Seql, 2, 2, 0,
 Floating-point numbers of equal value are `eql', but they may not be `eq'.  */)
   (Lisp_Object obj1, Lisp_Object obj2)
 {
-  if (FLOATP (obj1))
-    return internal_equal (obj1, obj2, 0, 0, Qnil) ? Qt : Qnil;
-  else
-    return EQ (obj1, obj2) ? Qt : Qnil;
+  return scm_is_true (scm_eqv_p (obj1, obj2)) ? Qt : Qnil;
 }
 
 DEFUN ("equal", Fequal, Sequal, 2, 2, 0,
-- 
2.20.1