prev/next-article ( article n -- article' )


Vocabulary
help.crossref

Inputs
articlean object
nan object


Outputs
article'an object


Definition
USING: help.topics kernel ;

IN: help.crossref

: prev/next-article ( article n -- article' )
[ dup article-parent dup ] dip
'[ article-children _ prev/next ] [ 2drop f ] if ;