From 3b40334ccda0cd45398e4f8fd6ffca85c8c0e127 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 20 Apr 2009 03:27:52 -0500
Subject: [PATCH] xml: fix compile warnings in tests
---
basis/xml/tests/state-parser-tests.factor | 2 +-
basis/xml/tests/xmltest.factor | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/basis/xml/tests/state-parser-tests.factor b/basis/xml/tests/state-parser-tests.factor
index 7616efaf1d..5e214dc4a3 100644
--- a/basis/xml/tests/state-parser-tests.factor
+++ b/basis/xml/tests/state-parser-tests.factor
@@ -2,7 +2,7 @@ USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings asc
IN: xml.test.state
: string-parse ( str quot -- )
- [ <string-reader> ] dip with-state ;
+ [ <string-reader> ] dip with-state ; inline
: take-rest ( -- string )
[ f ] take-until ;
diff --git a/basis/xml/tests/xmltest.factor b/basis/xml/tests/xmltest.factor
index c41b05eb85..55b5147abb 100644
--- a/basis/xml/tests/xmltest.factor
+++ b/basis/xml/tests/xmltest.factor
@@ -43,7 +43,7 @@ MACRO: drop-input ( quot -- newquot )
xml-tests [ unit-test ] assoc-each ;
: works? ( result quot -- ? )
- [ first ] [ call ] bi* = ;
+ [ first ] [ call( -- result ) ] bi* = ;
: partition-xml-tests ( -- successes failures )
xml-tests [ first2 works? ] partition ;