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

Clean up some code in help.crossref

db4
Slava Pestov 2009-01-07 12:18:30 -06:00
parent ff1e15466f
commit c054c8028a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/help/crossref/crossref.factor
View File

@ -27,11 +27,13 @@ M: link uses
: unxref-article ( topic -- )
>link unxref ;
: prev/next ( obj seq n -- obj' )
[ [ index dup ] keep ] dip swap
'[ _ + _ ?nth ] when ;
: prev/next-article ( article n -- article' )
[ dup article-parent dup ] dip
'[ article-children [ index _ + ] keep ?nth ]
[ 2drop f ]
if ;
'[ article-children _ prev/next ] [ 2drop f ] if ;
: prev-article ( article -- prev ) -1 prev/next-article ;