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

Update more libraries for unfold change

release
Slava Pestov 2007-11-04 18:06:34 -05:00
parent 613cdb9429
commit 4cc86d74ff
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/help/crossref/crossref.factor
View File

@ -14,7 +14,7 @@ M: link uses
collect-elements [ \ f or ] map ; collect-elements [ \ f or ] map ;
: help-path ( topic -- seq ) : help-path ( topic -- seq )
[ dup ] [ [ article-parent ] keep ] { } unfold 1 tail ; [ dup ] [ [ article-parent ] keep ] [ ] unfold nip 1 tail ;
: set-article-parents ( parent article -- ) : set-article-parents ( parent article -- )
article-children [ set-article-parent ] curry* each ; article-children [ set-article-parent ] curry* each ;

2
extra/serialize/serialize.factor
View File

@ -261,7 +261,7 @@ DEFER: (deserialize) ( -- obj )
V{ } clone serialized rot with-variable ; inline V{ } clone serialized rot with-variable ; inline
: deserialize-sequence ( -- seq ) : deserialize-sequence ( -- seq )
[ [ deserialize* ] [ ] { } unfold ] with-serialized ; [ [ deserialize* ] [ ] [ drop ] unfold ] with-serialized ;
: deserialize ( -- obj ) : deserialize ( -- obj )
[ (deserialize) ] with-serialized ; [ (deserialize) ] with-serialized ;