shorten ( url -- short )

Vocabulary

webapps.wee-url

Inputs

url

an object

Outputs

short

an object

Definition

USING: accessors db.tuples kernel ;

IN: webapps.wee-url

: shorten ( url -- short )
    short-url new swap >>url
    [ select-tuple ] [ insert-short-url ] ?unless short>> ;