From f5adb971f60e8dc35b4127e04364e35686abb41e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 18 Nov 2008 16:09:47 -0600
Subject: [PATCH] re-enable literal syntax for regexps

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

diff --git a/basis/regexp/regexp-tests.factor b/basis/regexp/regexp-tests.factor
index 15e78629b6..ba7dfed657 100644
--- a/basis/regexp/regexp-tests.factor
+++ b/basis/regexp/regexp-tests.factor
@@ -57,6 +57,8 @@ IN: regexp-tests
 
 [ t ] [ "/" "\\/" <regexp> matches? ] unit-test
 
+[ t ] [ "a" R' a'i 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
diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index e99077f4aa..c9a1d2f47d 100644
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -129,8 +129,6 @@ IN: regexp
 : option? ( option regexp -- ? )
     options>> key? ;
 
-USE: multiline
-/*
 M: regexp pprint*
     [
         [
@@ -139,4 +137,3 @@ M: regexp pprint*
             case-insensitive swap option? [ "i" % ] when
         ] "" make
     ] keep present-text ;
-*/