From e13d40c5efb2d161b2a2e22108f2384d185d2f9a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 23 Jul 2017 08:27:14 -0600 Subject: [PATCH] vector-{ref,set!}: fix chaperone error for JIT-generated check --- racket/src/racket/src/jitcommon.c | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/racket/src/racket/src/jitcommon.c b/racket/src/racket/src/jitcommon.c index 41b75b7652..a8af6168fd 100644 --- a/racket/src/racket/src/jitcommon.c +++ b/racket/src/racket/src/jitcommon.c @@ -92,12 +92,8 @@ static void apply_prim_to_fail(int argc, Scheme_Object **argv, void *_p) static Scheme_Object *vector_check_chaperone_of(Scheme_Object *o, Scheme_Object *orig, int setter) { if (!scheme_chaperone_of(o, orig)) - scheme_contract_error((setter ? "vector-set!" : "vector-ref"), - "chaperone produced a result that is not a chaperone of the original result", - "chaperone result", 1, o, - "original result", 1, o, - NULL); - + scheme_wrong_chaperoned((setter ? "vector-set!" : "vector-ref"), "result", orig, o); + return o; }