Fixing Unicode collation tests
parent
353d4e2ab0
commit
2b7ca515cc
|
@ -1,6 +1,6 @@
|
|||
USING: io io.files splitting unicode.collation sequences kernel
|
||||
io.encodings.utf8 math.parser math.order tools.test assocs
|
||||
io.streams.null ;
|
||||
io.streams.null words combinators.lib ;
|
||||
IN: unicode.collation.tests
|
||||
|
||||
: parse-test ( -- strings )
|
||||
|
|
|
@ -10,7 +10,7 @@ SYMBOL: interned
|
|||
|
||||
: parse-script ( stream -- assoc )
|
||||
! assoc is code point/range => name
|
||||
lines filter-comments [ split-; ] map >hashtable ;
|
||||
lines filter-comments [ split-; ] map ;
|
||||
|
||||
: range, ( value key -- )
|
||||
swap interned get
|
||||
|
|
Loading…
Reference in New Issue