Fixed XML bug which made everything stop compiling
parent
85a5beed74
commit
5917e58c86
|
@ -45,8 +45,10 @@ PROTOCOL: sequence-protocol
|
|||
set-nth set-nth-unsafe length set-length lengthen ;
|
||||
|
||||
PROTOCOL: assoc-protocol
|
||||
at* assoc-size >alist assoc-find set-at
|
||||
at* assoc-size >alist set-at assoc-clone-like
|
||||
delete-at clear-assoc new-assoc assoc-like ;
|
||||
! assoc-find excluded because GENERIC# 1
|
||||
! everything should work, just slower (with >alist)
|
||||
|
||||
PROTOCOL: stream-protocol
|
||||
stream-close stream-read1 stream-read stream-read-until
|
||||
|
|
|
@ -96,10 +96,10 @@ CONSULT: sequence-protocol tag tag-children ;
|
|||
INSTANCE: tag sequence
|
||||
|
||||
M: tag like
|
||||
over tag? [
|
||||
over tag? [ drop ] [
|
||||
[ delegate ] keep tag-attrs
|
||||
rot dup [ V{ } like ] when <tag>
|
||||
] unless ;
|
||||
] if ;
|
||||
|
||||
M: tag clone
|
||||
[ delegate clone ] keep [ tag-attrs clone ] keep
|
||||
|
|
Loading…
Reference in New Issue