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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/delegate/delegate.factor
View File

@ -45,8 +45,10 @@ PROTOCOL: sequence-protocol
set-nth set-nth-unsafe length set-length lengthen ; set-nth set-nth-unsafe length set-length lengthen ;
PROTOCOL: assoc-protocol 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 ; delete-at clear-assoc new-assoc assoc-like ;
! assoc-find excluded because GENERIC# 1
! everything should work, just slower (with >alist)
PROTOCOL: stream-protocol PROTOCOL: stream-protocol
stream-close stream-read1 stream-read stream-read-until stream-close stream-read1 stream-read stream-read-until

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

@ -96,10 +96,10 @@ CONSULT: sequence-protocol tag tag-children ;
INSTANCE: tag sequence INSTANCE: tag sequence
M: tag like M: tag like
over tag? [ over tag? [ drop ] [
[ delegate ] keep tag-attrs [ delegate ] keep tag-attrs
rot dup [ V{ } like ] when <tag> rot dup [ V{ } like ] when <tag>
] unless ; ] if ;
M: tag clone M: tag clone
[ delegate clone ] keep [ tag-attrs clone ] keep [ delegate clone ] keep [ tag-attrs clone ] keep