From 239bfeafda8f1da53c58da86e7663c87cf5d33d4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 18 Nov 2008 16:06:56 -0600
Subject: [PATCH] fix "\\/" <regexp>

---
 basis/regexp/parser/parser.factor | 1 +
 basis/regexp/regexp-tests.factor  | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/basis/regexp/parser/parser.factor b/basis/regexp/parser/parser.factor
index b7716d8580..b5022c602e 100644
--- a/basis/regexp/parser/parser.factor
+++ b/basis/regexp/parser/parser.factor
@@ -294,6 +294,7 @@ ERROR: unrecognized-escape char ;
     read1
     {
         { CHAR: \ [ CHAR: \ <constant> ] }
+        { CHAR: / [ CHAR: / <constant> ] }
         { CHAR: ^ [ CHAR: ^ <constant> ] }
         { CHAR: $ [ CHAR: $ <constant> ] }
         { CHAR: - [ CHAR: - <constant> ] }
diff --git a/basis/regexp/regexp-tests.factor b/basis/regexp/regexp-tests.factor
index 3e7d83a12b..15e78629b6 100644
--- a/basis/regexp/regexp-tests.factor
+++ b/basis/regexp/regexp-tests.factor
@@ -55,6 +55,8 @@ IN: regexp-tests
 [ t ] [ " " "[\\W]" <regexp> matches? ] unit-test
 [ f ] [ "a" "[\\W]" <regexp> matches? ] unit-test
 
+[ t ] [ "/" "\\/" <regexp> matches? ] unit-test
+
 [ t ] [ "" "a|b*|c+|d?" <regexp> matches? ] unit-test
 [ t ] [ "a" "a|b*|c+|d?" <regexp> matches? ] unit-test
 [ t ] [ "c" "a|b*|c+|d?" <regexp> matches? ] unit-test