filter-slots ( tuple specs -- specs' )

Vocabulary

db.queries

Inputs

tuple	an object
specs	an object

Outputs

specs'

an object

Definition

USING: accessors classes.tuple kernel sequences ;

IN: db.queries

: filter-slots ( tuple specs -- specs' )
    [
        slot-name>> swap get-slot-named
        dup double-infinite-interval? [ drop f ] when
    ] with filter ;