From: Bruno Deferrari <utizoc@gmail.com>
Date: Wed, 22 Jul 2009 23:49:57 +0000 (-0300)
Subject: basis.xml: A fix for <pull-xml> (calls init-parser so that the spot variable is binded)
X-Git-Tag: 0.97~5925^2
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d8434ceed2c779dc463e98d02529ba9dcc3dd458

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

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index cca1b5e2e0..a1d734f291 100755
--- 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