casep>quot ( assoc -- quot )

Vocabulary

combinators.random.private

Inputs

assoc

an object

Outputs

quot

an object

Definition

USING: random sequences ;

IN: combinators.random.private

: casep>quot ( assoc -- quot )
    (casep>quot) [ random-unit ] prepend ;