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

View File

@ -53,7 +53,7 @@ M: mismatched summary ( obj -- str )
TUPLE: unclosed < parsing-error tags ;
: <unclosed> ( -- unclosed )
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 )
[
dup call-next-method write

View File

@ -49,7 +49,7 @@ SYMBOL: ns-stack
! Parsing names
: 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
@ -69,7 +69,7 @@ SYMBOL: ns-stack
: (parse-entity) ( string -- )
dup entities at [ , ] [
prolog-data get prolog-standalone
prolog-data get standalone>>
[ <no-entity> throw ] [
dup extra-entities get at
[ , ] [ <no-entity> throw ] ?if