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

fix attempt to clean up overflow checking

Browse Source
This commit is contained in:
Matthew Flatt 2011-06-30 09:55:55 -06:00
parent 37e4ea497b
commit ae8bbaef90
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -290,7 +290,7 @@ make_vector (int argc, Scheme_Object *argv[])
if ((len == -1) if ((len == -1)
/* also watch for overflow: */ /* also watch for overflow: */
|| (REV_VECTOR_BYTES(len) != len)) { || (REV_VECTOR_BYTES(VECTOR_BYTES(len)) != len)) {
scheme_raise_out_of_memory("make-vector", "making vector of length %s", scheme_raise_out_of_memory("make-vector", "making vector of length %s",
scheme_make_provided_string(argv[0], 1, NULL)); scheme_make_provided_string(argv[0], 1, NULL));
} }