From 2b7ca515ccad186ce4970fc6ee03450092e5c3ef Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Sun, 25 May 2008 21:36:38 -0500 Subject: [PATCH] Fixing Unicode collation tests --- extra/unicode/collation/collation-tests.factor | 2 +- extra/unicode/script/script.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/unicode/collation/collation-tests.factor b/extra/unicode/collation/collation-tests.factor index a684133992..c9d6cb808f 100755 --- a/extra/unicode/collation/collation-tests.factor +++ b/extra/unicode/collation/collation-tests.factor @@ -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 ) diff --git a/extra/unicode/script/script.factor b/extra/unicode/script/script.factor index 949b464669..7a5dcc36b6 100755 --- a/extra/unicode/script/script.factor +++ b/extra/unicode/script/script.factor @@ -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