with-redis ( redis quot -- )

Vocabulary

redis

Inputs

redis	an object
quot	an object

Outputs

None

Definition

USING: accessors io.streams.duplex kernel ;

IN: redis

: with-redis ( redis quot -- )
    [
        [ redis-do-connect ] [ password>> ] bi
        [ swap [ [ redis-auth drop ] with-stream* ] keep ] when*
    ] dip with-stream ; inline