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-02-26 14:48:05 -07:00
parent 59ef254318
commit 61fffa4646
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/regexp.c
View File

@ -198,7 +198,7 @@ regcomp(char *expstr, rxpos exp, int explen, int pcre, Scheme_Object *handler)
regbackdepends = NULL; regbackdepends = NULL;
regerrorproc = handler; regerrorproc = handler;
regerrorval = NULL; regerrorval = NULL;
regc(MAGIC); regc((char)MAGIC);
if (reg(0, &flags, 0, 0, PARSE_CASE_SENS | PARSE_SINGLE_LINE | (pcre ? PARSE_PCRE : 0)) == 0) { if (reg(0, &flags, 0, 0, PARSE_CASE_SENS | PARSE_SINGLE_LINE | (pcre ? PARSE_PCRE : 0)) == 0) {
if (regerrorval) if (regerrorval)
return NULL; return NULL;