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

fix performance bug in equal? on vectors

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-29 06:58:36 -06:00
parent 07e390302c
commit f2335ae4dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -771,7 +771,7 @@ static int vector_equal(Scheme_Object *vec1, Scheme_Object *orig_vec1,
v1 = SCHEME_VEC_ELS(vec1)[i]; v1 = SCHEME_VEC_ELS(vec1)[i];
else else
v1 = scheme_chaperone_vector_ref(orig_vec1, i); v1 = scheme_chaperone_vector_ref(orig_vec1, i);
if (SAME_OBJ(vec2, orig_vec1)) if (SAME_OBJ(vec2, orig_vec2))
v2 = SCHEME_VEC_ELS(vec2)[i]; v2 = SCHEME_VEC_ELS(vec2)[i];
else else
v2 = scheme_chaperone_vector_ref(orig_vec2, i); v2 = scheme_chaperone_vector_ref(orig_vec2, i);