steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

re-enable literal syntax for regexps

db4
Doug Coleman 2008-11-18 16:09:47 -06:00
parent 239bfeafda
commit f5adb971f6
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/regexp/regexp-tests.factor
View File

@ -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

3
basis/regexp/regexp.factor
View File

@ -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 ;
*/