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

[factor.git] / basis / xml / tests / test.factor
diff --git a/basis/xml/tests/test.factor b/basis/xml/tests/test.factor

index e371c3aab5c6b0acdc62f250b657d3275cf60ee7..dba51d57ab275288a42cdd540f222112f057d2a7 100644 (file)
--- a/basis/xml/tests/test.factor
+++ b/basis/xml/tests/test.factor
@@ -57,7 +57,7 @@ SYMBOL: xml-file
  [ ] [ "<?xml version='1.0'?><!-- declarations for <head> & <body> --><foo/>" string>xml drop ] unit-test
  
  : first-thing ( seq -- elt )
-    [ "" = not ] filter first ;
+    [ "" = ] reject first ;
  
  [ T{ element-decl f "br" "EMPTY" } ] [ "<!ELEMENT br EMPTY>" string>dtd directives>> first-thing ] unit-test
  [ T{ element-decl f "p" "(#PCDATA|emph)*" } ] [ "<!ELEMENT p (#PCDATA|emph)*>" string>dtd directives>> first-thing ] unit-test