stack-url ( delta -- url )

Vocabulary

gopher.cli

Inputs

delta

an object

Outputs

url

an object

Definition

USING: kernel math sequences ;

IN: gopher.cli

: stack-url ( delta -- url )
    URL ?first STACK find-url drop
    [ + STACK nth-url ] [ drop f ] if* ;