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

avoid a compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2018-06-27 16:08:14 -06:00
parent 9e6f450005
commit caf1b2e275
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/portfun.c
View File

@ -4572,8 +4572,8 @@ static Scheme_Object *sha_bytes(const char *name, int argc, Scheme_Object **argv
char buf[256]; char buf[256];
if (argc > 1) { if (argc > 1) {
intptr_t start, end; intptr_t end;
start = scheme_extract_index(name, 1, argc, argv, -1, 0); (void)scheme_extract_index(name, 1, argc, argv, -1, 0);
if ((argc > 2) && !SCHEME_FALSEP(argv[2])) if ((argc > 2) && !SCHEME_FALSEP(argv[2]))
end = scheme_extract_index(name, 2, argc, argv, -1, 1); end = scheme_extract_index(name, 2, argc, argv, -1, 1);
else else