Fix conflict in libc

[factor.git] / basis / xml / writer / writer-tests.factor

diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index 23fb7a50749870709603ca0ad7d53c745cf72496..421c2a2b5db7fc7c705dbec8f487a03b4fad4a77 100644 (file)
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -15,10 +15,10 @@ IN: xml.writer.tests
 [ "ns:foo" ] [ T{ name { space "ns" } { main "foo" } } name>string ] unit-test
 
 : reprints-as ( to from -- )
-     [ '[ _ ] ] [ '[ _ string>xml xml>string ] ] bi* unit-test ;
+     [ ] [ string>xml xml>string ] bi-curry* unit-test ;
 
 : pprint-reprints-as ( to from -- )
-     [ '[ _ ] ] [ '[ _ string>xml pprint-xml>string ] ] bi* unit-test ;
+     [ ] [ string>xml pprint-xml>string ] bi-curry* unit-test ;
 
 : reprints-same ( string -- ) dup reprints-as ;