Merge branch 'xml-fix' of git://tiodante.com/git/factor

diff --git a/basis/xml/tests/test.factor b/basis/xml/tests/test.factor
index 74ba931c7998aa871d13d9e151b847e1d397e5d9..e371c3aab5c6b0acdc62f250b657d3275cf60ee7 100644 (file)
--- a/basis/xml/tests/test.factor
+++ b/basis/xml/tests/test.factor
@@ -73,3 +73,7 @@ SYMBOL: xml-file
 [ T{ xml-chunk f V{ "hello" } } ] [ "hello" string>xml-chunk ] unit-test
 [ "1.1" ] [ "<?xml version='1.1'?><x/>" string>xml prolog>> version>> ] unit-test
 [ "ß" ] [ "<x>ß</x>" <string-reader> read-xml children>string ] unit-test
+
+! <pull-xml> tests
+! this tests just checks that pull-event doesn't raise an exception
+[ ] [ "vocab:xml/tests/test.xml" binary [ <pull-xml> pull-event drop ] with-file-reader ] unit-test
\ No newline at end of file

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index cca1b5e2e0cf4160f8538a39e59b73b983e4ceab..a1d734f291e5e356b91be503809c0ca003993127 100755 (executable)
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -110,6 +110,7 @@ PRIVATE>
 TUPLE: pull-xml scope ;
 : <pull-xml> ( -- pull-xml )
     [
+        init-parser
         input-stream [ ] change ! bring var in this scope
         init-xml text-now? on
     ] H{ } make-assoc