From f2335ae4dc05912b406e4294264d8d1a602458fa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 29 Apr 2014 06:58:36 -0600
Subject: [PATCH] fix performance bug in `equal?` on vectors

---
 racket/src/racket/src/bool.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/bool.c b/racket/src/racket/src/bool.c
index 2ee4b0f7d9..7ad96dad3a 100644
--- a/racket/src/racket/src/bool.c
+++ b/racket/src/racket/src/bool.c
@@ -771,7 +771,7 @@ static int vector_equal(Scheme_Object *vec1, Scheme_Object *orig_vec1,
       v1 = SCHEME_VEC_ELS(vec1)[i];
     else
       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];
     else
       v2 = scheme_chaperone_vector_ref(orig_vec2, i);