From fffcf9f92137b4da31d76e39e9a059b0749dfdac Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Jul 2014 14:39:37 +0100
Subject: [PATCH] equal?: remove redundant `eqv?` test

---
 racket/src/racket/src/bool.c | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/racket/src/racket/src/bool.c b/racket/src/racket/src/bool.c
index 7b394c7e08..fbd653cf3b 100644
--- a/racket/src/racket/src/bool.c
+++ b/racket/src/racket/src/bool.c
@@ -560,10 +560,6 @@ int is_equal (Scheme_Object *obj1, Scheme_Object *obj2, Equal_Info *eql)
   }
 
  top_after_next:
-  cmp = is_eqv(obj1, obj2);
-  if (cmp > -1)
-    return cmp;
-
   cmp = is_fast_equal(obj1, obj2, eql->for_chaperone == 1);
   if (cmp > -1)
     return cmp;