use reject instead of [ ... not ] filter.

[factor.git] / basis / colors / constants / constants.factor

diff --git a/basis/colors/constants/constants.factor b/basis/colors/constants/constants.factor
index c17d1069b27533263a456e06c4d69c47d27781df..ad489a51a2d26a086e5364554c22d88d2a3c879a 100644 (file)
--- a/basis/colors/constants/constants.factor
+++ b/basis/colors/constants/constants.factor
@@ -9,10 +9,10 @@ IN: colors.constants
 : parse-color ( line -- name color )
     first4
     [ [ string>number 255 /f ] tri@ 1.0 <rgba> ] dip
-    [ blank? ] trim-head { { CHAR: \s CHAR: - } } substitute swap ;
+    [ blank? ] trim-head H{ { CHAR: \s CHAR: - } } substitute swap ;
 
 : parse-colors ( lines -- assoc )
-    [ "!" head? not ] filter
+    [ "!" head? ] reject
     [ 11 cut [ " \t" split harvest ] dip suffix ] map
     [ parse-color ] H{ } map>assoc ;
 
@@ -30,4 +30,4 @@ ERROR: no-such-color name ;
 : named-color ( name -- color )
     dup colors at [ ] [ no-such-color ] ?if ;
 
-SYNTAX: COLOR: scan named-color suffix! ;
+SYNTAX: COLOR: scan-token named-color suffix! ;