check-for-key ( assoc key -- )

Vocabulary

mongodb.benchmark

Inputs

assoc	an object
key	an object

Outputs

None

Definition

USING: assocs kernel ;

IN: mongodb.benchmark

: check-for-key ( assoc key -- )
    CHECK-KEY
    [ swap key? [ "ups... where's the key" throw ] unless ]
    [ 2drop ] if ;