where-interval ( spec obj from/to -- )

Vocabulary

db.queries

Inputs

spec	an object
obj	an object
from/to	an object

Outputs

None

Definition

USING: accessors db.types kernel math nmake sequences ;

IN: db.queries

: where-interval ( spec obj from/to -- )
    over first fp-infinity?
    [ 3drop ] [
        pick column-name>> 0% [ first2 ] dip interval-comparison
        0% bind#
    ] if ;