steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Bruno Deferrari 2009-07-22 20:49:57 -03:00
parent 8bf389e9b5
commit d8434ceed2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/xml/xml.factor
View File

@ -110,6 +110,7 @@ PRIVATE>
TUPLE: pull-xml scope ; TUPLE: pull-xml scope ;
: <pull-xml> ( -- pull-xml ) : <pull-xml> ( -- pull-xml )
[ [
init-parser
input-stream [ ] change ! bring var in this scope input-stream [ ] change ! bring var in this scope
init-xml text-now? on init-xml text-now? on
] H{ } make-assoc ] H{ } make-assoc