make-query* ( tuple query -- tuple' )

Vocabulary

db.queries

Inputs

tuple	an object
query	an object

Outputs

tuple'

an object

Definition

USING: accessors combinators kernel sequences ;

IN: db.queries

: make-query* ( tuple query -- tuple' )
    dupd {
        [ group>> [ drop ] [ do-group ] if-empty ]
        [ order>> [ drop ] [ do-order ] if-empty ]
        [ limit>> [ do-limit ] [ drop ] if* ]
        [ offset>> [ do-offset ] [ drop ] if* ]
    } 2cleave ;