From caf1b2e27567eb19912ff6cc7d18d51f70373e4f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Jun 2018 16:08:14 -0600 Subject: [PATCH] avoid a compiler warning --- racket/src/racket/src/portfun.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c index e5b43b1dc0..c44576c2d2 100644 --- a/racket/src/racket/src/portfun.c +++ b/racket/src/racket/src/portfun.c @@ -4572,8 +4572,8 @@ static Scheme_Object *sha_bytes(const char *name, int argc, Scheme_Object **argv char buf[256]; if (argc > 1) { - intptr_t start, end; - start = scheme_extract_index(name, 1, argc, argv, -1, 0); + intptr_t end; + (void)scheme_extract_index(name, 1, argc, argv, -1, 0); if ((argc > 2) && !SCHEME_FALSEP(argv[2])) end = scheme_extract_index(name, 2, argc, argv, -1, 1); else