From 61fffa4646e72a193b77ef762e26a81ad4fb8b55 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 26 Feb 2018 14:48:05 -0700
Subject: [PATCH] avoid a compiler warning

---
 racket/src/racket/src/regexp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/regexp.c b/racket/src/racket/src/regexp.c
index 6d2fd22a11..21cbb375bc 100644
--- a/racket/src/racket/src/regexp.c
+++ b/racket/src/racket/src/regexp.c
@@ -198,7 +198,7 @@ regcomp(char *expstr, rxpos exp, int explen, int pcre, Scheme_Object *handler)
   regbackdepends = NULL;
   regerrorproc = handler;
   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 (regerrorval)
       return NULL;