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

vector*-set!: repair to disallow an impersonator

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-28 18:57:48 -07:00
parent 6fc9368d5c
commit 9cd4f44d42
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/racket/src/vector.c
View File

@ -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);