find-url ( url items -- i item )

Vocabulary

gopher.cli

Inputs

url	an object
items	an object

Outputs

i	an object
item	an object

Definition

USING: arrays kernel sequences ;

IN: gopher.cli

: find-url ( url items -- i item )
    [ dup array? [ first ] when = ] with find ;