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

xml: Rename unclosed.

db4
Doug Coleman 2013-03-23 23:08:15 -07:00
parent 8160bb036d
commit c74d19512e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/xml/errors/errors.factor
View File

@ -49,7 +49,7 @@ XML-ERROR: mismatched open close ;
TUPLE: unclosed line column tags ; TUPLE: unclosed line column tags ;
: unclosed ( -- * ) : throw-unclosed ( -- * )
get-line get-column get-line get-column
xml-stack get rest-slice [ first name>> ] map xml-stack get rest-slice [ first name>> ] map
\ unclosed boa throw ; \ unclosed boa throw ;

2
basis/xml/xml.factor
View File

@ -155,7 +155,7 @@ PRIVATE>
init-xml init-xml-stack init-xml init-xml-stack
call call
[ process ] xml-loop [ process ] xml-loop
done? [ unclosed ] unless done? [ throw-unclosed ] unless
xml-stack get first second xml-stack get first second
] with-state ; inline ] with-state ; inline