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

Remove dead assignment to ch (#2589)

Browse Source 
Remove dead assignment to ch and make discard return value explicit
This commit is contained in:
Paulo Matos 2019-04-10 08:37:37 +02:00 committed by GitHub
parent 2919d21d1d
commit 5a3d7b87e4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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); return read_quote("quasiquoting #`", quasisyntax_symbol, 2, port, params);
case ',': case ',':
if (scheme_peekc(port) == '@') { 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); return read_quote("unquoting #`@", unsyntax_splicing_symbol, 3, port, params);
} else } else
return read_quote("unquoting #`", unsyntax_symbol, 2, port, params); return read_quote("unquoting #`", unsyntax_symbol, 2, port, params);