or-simple-title ( ... url title/f quot: ( ... title -- ... title' ) -- ... url title' )

Vocabulary

farkup

Inputs

url	an object
title/f	an object
quot	a quotation with stack effect ( ... title -- ... title' )

Outputs

url	an object
title'	an object

Definition

USING: kernel sequences ;

IN: farkup

: or-simple-title
    ( ... url title/f quot: ( ... title -- ... title' ) -- ... url title' )
    [ "" like dup simple-link-title ] if* ; inline