From 5d9ee938d6d803715145d4080a2c303f96a65c8a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Feb 2007 00:19:10 +0000
Subject: [PATCH] fix backslash-s handling in a char-string regexp

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

diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c
index 14b97ee917..9df4477601 100644
--- a/src/mzscheme/src/regexp.c
+++ b/src/mzscheme/src/regexp.c
@@ -4318,10 +4318,10 @@ static int translate(unsigned char *s, int len, char **result, int pcre)
 	      if (((c >= 'a') && (c <= 'z'))
 		  || ((c >= 'A') && (c <= 'Z'))) {
 		regcharclass(c, simple_on);
-		p++;
+		p += 2;
 	      } else if (c < 128) {
 		simple_on[c] = 1;
-		p++;
+		p += 2;
 	      } else {
 		/* Let next iteration handle it.
 		   (There's no danger of using it as a meta-character.) */