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

fix "\\/" <regexp>

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

1
basis/regexp/parser/parser.factor
View File

@ -294,6 +294,7 @@ ERROR: unrecognized-escape char ;
read1
{
{ CHAR: \ [ CHAR: \ <constant> ] }
{ CHAR: / [ CHAR: / <constant> ] }
{ CHAR: ^ [ CHAR: ^ <constant> ] }
{ CHAR: $ [ CHAR: $ <constant> ] }
{ CHAR: - [ CHAR: - <constant> ] }

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

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