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

xml new accessors

db4
Doug Coleman 2008-09-01 18:43:52 -05:00
parent 08ba3e6f37
commit 79970222dd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,7 +53,7 @@ M: mismatched summary ( obj -- str )
TUPLE: unclosed < parsing-error tags ; TUPLE: unclosed < parsing-error tags ;
: <unclosed> ( -- unclosed ) : <unclosed> ( -- unclosed )
unclosed parsing-error unclosed parsing-error
xml-stack get rest-slice [ first opener-name ] map >>tags ; xml-stack get rest-slice [ first name>> ] map >>tags ;
M: unclosed summary ( obj -- str ) M: unclosed summary ( obj -- str )
[ [
dup call-next-method write dup call-next-method write

4
basis/xml/tokenize/tokenize.factor
View File

@ -49,7 +49,7 @@ SYMBOL: ns-stack
! Parsing names ! Parsing names
: version=1.0? ( -- ? ) : version=1.0? ( -- ? )
prolog-data get prolog-version "1.0" = ; prolog-data get version>> "1.0" = ;
! version=1.0? is calculated once and passed around for efficiency ! version=1.0? is calculated once and passed around for efficiency
@ -69,7 +69,7 @@ SYMBOL: ns-stack
: (parse-entity) ( string -- ) : (parse-entity) ( string -- )
dup entities at [ , ] [ dup entities at [ , ] [
prolog-data get prolog-standalone prolog-data get standalone>>
[ <no-entity> throw ] [ [ <no-entity> throw ] [
dup extra-entities get at dup extra-entities get at
[ , ] [ <no-entity> throw ] ?if [ , ] [ <no-entity> throw ] ?if