Fixed XML bug which made everything stop compiling

db4
Daniel Ehrenberg 2007-12-24 20:48:29 -05:00
parent 85a5beed74
commit 5917e58c86
2 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -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