basis.xml: A fix for <pull-xml> (calls init-parser so that the spot variable is binded)

2009-07-22 20:49:57 -03:00 · 2009-07-22 20:49:57 -03:00 · 5e6e8418ef
parent 6cf898ea26
commit 5e6e8418ef
1 changed files with 1 additions and 0 deletions
--- 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