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

View File

@ -3,7 +3,8 @@
USING: peg.ebnf kernel math.parser sequences assocs arrays fry math
combinators regexp.classes strings splitting peg locals accessors
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
: allowed-char? ( ch -- ? )
@ -27,7 +28,7 @@ ERROR: bad-class name ;
[ [ simple ] keep ] H{ } map>assoc ;
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 )
categories simple-table ;