suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

equal?: remove redundant eqv? test

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-24 14:39:37 +01:00
parent f0e710179c
commit fffcf9f921
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/bool.c
View File

@ -560,10 +560,6 @@ int is_equal (Scheme_Object *obj1, Scheme_Object *obj2, Equal_Info *eql)
} }
top_after_next: top_after_next:
cmp = is_eqv(obj1, obj2);
if (cmp > -1)
return cmp;
cmp = is_fast_equal(obj1, obj2, eql->for_chaperone == 1); cmp = is_fast_equal(obj1, obj2, eql->for_chaperone == 1);
if (cmp > -1) if (cmp > -1)
return cmp; return cmp;