equal?: remove redundant eqv? test

2014-07-24 14:39:37 +01:00 · 2014-07-24 14:39:37 +01:00 · fffcf9f921
commit fffcf9f921
parent f0e710179c
1 changed files with 0 additions and 4 deletions
--- 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;