factor: fix some spacing

[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 d12e530ee7dafd96ffa8ec442957536e02fe4aa8..0bf7024ec618946572fc2e14b8d1c39d286270bc 100644 (file)
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -13,10 +13,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-curry* unit-test ;
+    [ ] [ string>xml xml>string ] bi-curry* unit-test ;
 
 : pprint-reprints-as ( to from -- )
-     [ ] [ string>xml pprint-xml>string ] bi-curry* unit-test ;
+    [ ] [ string>xml pprint-xml>string ] bi-curry* unit-test ;
 
 : reprints-same ( string -- ) dup reprints-as ;