From 5a3d7b87e4815f06f8baf87f66f329cfa1afccda Mon Sep 17 00:00:00 2001 From: Paulo Matos Date: Wed, 10 Apr 2019 08:37:37 +0200 Subject: [PATCH] Remove dead assignment to ch (#2589) Remove dead assignment to ch and make discard return value explicit --- racket/src/racket/src/read.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c index 5fef8f697b..8915e7f478 100644 --- a/racket/src/racket/src/read.c +++ b/racket/src/racket/src/read.c @@ -653,7 +653,7 @@ static Scheme_Object *read_inner(Scheme_Object *port, ReadParams *params, int pr return read_quote("quasiquoting #`", quasisyntax_symbol, 2, port, params); case ',': if (scheme_peekc(port) == '@') { - ch = scheme_getc(port); /* must be '@' */ + (void)scheme_getc(port); /* must be '@' */ return read_quote("unquoting #`@", unsyntax_splicing_symbol, 3, port, params); } else return read_quote("unquoting #`", unsyntax_symbol, 2, port, params);