From b80d99c2f936100592bd3066833402f343d91677 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Apr 2008 19:02:57 +0000
Subject: [PATCH] fix bug in regexp parser where vertical bar after a single
 character is followed by the end-of-string

svn: r9460
---
 src/mzscheme/src/regexp.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c
index 44d21940c6..2177213cb2 100644
--- a/src/mzscheme/src/regexp.c
+++ b/src/mzscheme/src/regexp.c
@@ -1814,6 +1814,8 @@ regranges(int parse_flags, int at_start)
       break;
 
     regparse++;
+    if (regparse == regparse_end)
+      break;
   }
 
   regparse = save_regparse;