From 9cd4f44d420f1286e74c236c6244479e6a237f4e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Feb 2018 18:57:48 -0700 Subject: [PATCH] vector*-set!: repair to disallow an impersonator --- racket/src/racket/src/vector.c | 3 --- 1 file changed, 3 deletions(-) diff --git a/racket/src/racket/src/vector.c b/racket/src/racket/src/vector.c index 35e4a8ff66..6a3326aef0 100644 --- a/racket/src/racket/src/vector.c +++ b/racket/src/racket/src/vector.c @@ -759,9 +759,6 @@ scheme_checked_vector_star_set(int argc, Scheme_Object *argv[]) Scheme_Object *vec = argv[0]; intptr_t i, len; - if (SCHEME_CHAPERONEP(vec)) - vec = SCHEME_CHAPERONE_VAL(vec); - if (!SCHEME_MUTABLE_VECTORP(vec)) scheme_wrong_contract("vector*-set!", "(and/c vector? (not/c immutable?) (not/c impersonator?))", 0, argc, argv);