find-builder ( host-name os cpu -- builder )

Vocabulary

webapps.mason.status-update

Inputs

host-name	an object
os	an object
cpu	an object

Outputs

builder

an object

Definition

USING: accessors db.tuples kernel webapps.mason.backend ;

IN: webapps.mason.status-update

: find-builder ( host-name os cpu -- builder )
    builder new swap >>cpu swap >>os swap >>host-name
    [ select-tuple ] [ dup insert-tuple ] ?unless ;