specializer-cases ( quot specializer -- alist )

Vocabulary

hints

Inputs

quot	an object
specializer	an object

Outputs

alist

an object

Definition

USING: arrays assocs kernel kernel.private sequences ;

IN: hints

: specializer-cases ( quot specializer -- alist )
    dup [ array? ] all? [ 1array ] unless [
        [ nip make-specializer ] [
            [ specializer-declaration ] map swap
            [ [ declare ] curry ] dip compose
        ] 2bi
    ] with map>alist ;