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

regexp.parser: fix failing test

db4
Joe Groff 2011-12-06 21:11:58 -08:00
parent 2e4d6f724b
commit df19e2ee01
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,8 @@
USING: peg.ebnf kernel math.parser sequences assocs arrays fry math USING: peg.ebnf kernel math.parser sequences assocs arrays fry math
combinators regexp.classes strings splitting peg locals accessors combinators regexp.classes strings splitting peg locals accessors
regexp.ast unicode.case unicode.script.private unicode.categories regexp.ast unicode.case unicode.script.private unicode.categories
memoize interval-maps sets unicode.data combinators.short-circuit ; memoize interval-maps sets unicode.data combinators.short-circuit
namespaces ;
IN: regexp.parser IN: regexp.parser
: allowed-char? ( ch -- ? ) : allowed-char? ( ch -- ? )
@ -27,7 +28,7 @@ ERROR: bad-class name ;
[ [ simple ] keep ] H{ } map>assoc ; [ [ simple ] keep ] H{ } map>assoc ;
MEMO: simple-script-table ( -- table ) MEMO: simple-script-table ( -- table )
script-table interval-values members simple-table ; script-table get-global interval-values members simple-table ;
MEMO: simple-category-table ( -- table ) MEMO: simple-category-table ( -- table )
categories simple-table ; categories simple-table ;