Fix conflict in libc

[factor.git] / basis / xml / tests / xmltest.factor

diff --git a/basis/xml/tests/xmltest.factor b/basis/xml/tests/xmltest.factor
index 80472fc788806cb5d5a371eac309cba95653e091..9fab05bdf1b23bdda50473abbe58c5c23395c3cc 100644 (file)
--- a/basis/xml/tests/xmltest.factor
+++ b/basis/xml/tests/xmltest.factor
@@ -26,8 +26,7 @@ MACRO: drop-input ( quot -- newquot )
     infer in>> '[ _ ndrop ] ;
 
 : fails? ( quot -- ? )
-    [ '[ _ drop-output f ] ]
-    [ '[ drop _ drop-input t ] ] bi recover ; inline
+    [ drop-output f ] [ nip drop-input t ] bi-curry recover ; inline
 
 : well-formed? ( uri -- answer )
     [ file>xml ] fails? "not-wf" "valid" ? ;