xml: fix compile warnings in tests

db4
Slava Pestov 2009-04-20 03:27:52 -05:00
parent 7aeb13e58a
commit 3b40334ccd
2 changed files with 2 additions and 2 deletions

View File

@ -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 ;

View File

@ -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 ;