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

fix another unit test

db4
erg 2008-05-21 16:08:24 -05:00
parent fcab249f3e
commit 5b0d7bb3b7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/regexp4/regexp4.factor
View File

@ -393,7 +393,9 @@ DEFER: parse-character-class
: parse-character-class-second ( regexp -- )
get-next
{
! { CHAR: [ [ CHAR: [ push-stack next ] }
{ CHAR: ] [ CHAR: ] push-stack next ] }
{ CHAR: - [ CHAR: - push-stack next ] }
[ 2drop ]
} case ;
@ -401,8 +403,9 @@ DEFER: parse-character-class
get-next
{
{ CHAR: ^ [ caret dupd push-stack next parse-character-class-second ] }
{ CHAR: [ [ CHAR: [ push-stack next ] }
! { CHAR: [ [ CHAR: [ push-stack next ] }
{ CHAR: ] [ CHAR: ] push-stack next ] }
{ CHAR: - [ CHAR: - push-stack next ] }
[ 2drop ]
} case ;