insert-short-url ( short-url -- short-url )

Vocabulary

webapps.wee-url

Inputs

short-url

an object

Outputs

short-url

an object

Definition

USING: accessors db.tuples kernel ;

IN: webapps.wee-url

: insert-short-url ( short-url -- short-url )
    [ dup random-url >>short insert-tuple ] curry 10 retry ;