xml new accessors
parent
08ba3e6f37
commit
79970222dd
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue