direct>conditional ( assoc -- assoc' )

Vocabulary

combinators.random.private

Inputs

assoc

an object

Outputs

assoc'

an object

Definition

USING: arrays kernel sequences ;

IN: combinators.random.private

: direct>conditional ( assoc -- assoc' )
    dup last pair?
    [ (direct>conditional) ]
    [ unclip-last [ (direct>conditional) ] [ suffix ] bi* ] if ;