add-recent ( obj -- )

Vocabulary

help.home

Inputs

obj

an object

Outputs

None

Definition

USING: kernel namespaces sets ;

IN: help.home

: add-recent ( obj -- )
    add-recent-where dup
    [ get [ adjoin ] [ expire ] bi ] [ 2drop ] if
    redisplay-recent-page ;