?gopher-url ( obj -- url )

Vocabulary

gopher.ui

Inputs

obj

an object

Outputs

url

an object

Definition

USING: kernel present sequences urls ;

IN: gopher.ui

: ?gopher-url ( obj -- url )
    present dup "://" subseq-of? [ "gopher://" prepend ] unless
    >url ;