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

[factor.git] / basis / mime / types / types.factor

diff --git a/basis/mime/types/types.factor b/basis/mime/types/types.factor
index 81518d53197bd4cef9e3bb407032798f03d977ea..94398fbc0e58cbd6a9575d238a30334540b61b3a 100644 (file)
--- a/basis/mime/types/types.factor
+++ b/basis/mime/types/types.factor
@@ -7,7 +7,7 @@ IN: mime.types
 
 MEMO: mime-db ( -- seq )
     "vocab:mime/types/mime.types" ascii file-lines
-    [ "#" head? not ] filter [ " \t" split harvest ] map harvest ;
+    [ "#" head? ] reject [ " \t" split harvest ] map harvest ;
 
 : nonstandard-mime-types ( -- assoc )
     H{