From 50bd8c61530d6acb85b1ed046c58559157990687 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 16 Sep 2011 07:03:37 -0600
Subject: [PATCH] fix bad return for a void function

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

diff --git a/src/racket/src/regexp.c b/src/racket/src/regexp.c
index e84753a273..f7d2e87032 100644
--- a/src/racket/src/regexp.c
+++ b/src/racket/src/regexp.c
@@ -2948,7 +2948,8 @@ static void read_more_from_regport(Regwork *rw, rxpos need_total)
   Scheme_Object *peekskip;
 
   if (rw->lazy_string) {
-    return read_more_from_lazy_string(rw, need_total);
+    read_more_from_lazy_string(rw, need_total);
+    return;
   }
 
   /* limit reading by rw->input_maxend: */