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

Vocabulary

help.crossref

Inputs

article	an object
n	an 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 ] ] dip
    [ prev/next ] curry compose [ 2drop f ] if ;