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

Fixing XML bug

db4
Daniel Ehrenberg 2007-12-23 23:21:44 -05:00
parent 0de2e117f5
commit 0e13e2e92c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/xml/data/data.factor
View File

@ -62,7 +62,7 @@ M: attrs set-at
M: attrs assoc-size attrs-alist length ; M: attrs assoc-size attrs-alist length ;
M: attrs new-assoc drop V{ } new <attrs> ; M: attrs new-assoc drop V{ } new <attrs> ;
M: attrs >alist attrs-alist >alist ; M: attrs >alist attrs-alist ;
: >attrs ( assoc -- attrs ) : >attrs ( assoc -- attrs )
dup [ dup [
@ -130,9 +130,9 @@ M: xml clone
[ delegate clone ] keep xml-after clone <xml> ; [ delegate clone ] keep xml-after clone <xml> ;
M: xml like M: xml like
swap dup xml? [ swap dup xml? [ nip ] [
dup tag? [ tag>xml ] [ seq>xml ] if dup tag? [ tag>xml ] [ seq>xml ] if
] unless ; ] if ;
! tag with children=f is contained ! tag with children=f is contained
: <contained-tag> ( name attrs -- tag ) : <contained-tag> ( name attrs -- tag )