linear-case-quot ( default assoc -- quot )

Vocabulary

combinators

Inputs

default	an object
assoc	an object

Outputs

quot

an object

Definition

USING: assocs kernel quotations sequences ;

IN: combinators

: linear-case-quot ( default assoc -- quot )
    [
        [ 1quotation \ dup prefix \ = suffix ] [ \ drop prefix ]
        bi*
    ] assoc-map reverse! alist>quot ;