many-where ( tuple seq -- )

Vocabulary

db.queries

Inputs

tuple	an object
seq	an object

Outputs

None

Definition

USING: accessors classes.tuple kernel nmake sequences ;

IN: db.queries

: many-where ( tuple seq -- )
    " where " 0%
    [ " and " 0% ]
    [ 2dup slot-name>> swap get-slot-named where ] interleave
    drop ;