make-specializer ( specs -- quot )

Vocabulary

hints

Inputs

specs

an object

Outputs

quot

an object

Definition

USING: arrays assocs generic.standard kernel sequences ;

IN: hints

: make-specializer ( specs -- quot )
    dup length <iota> <reversed> [ (picker) 2array ] 2map
    [ object eq? ] reject-keys
    [ [ t ] ] [
        [ swap specializer-predicate append ] { } assoc>map
        [ ] [ swap [ f ] \ if 3array [ ] append-as ] map-reduce
    ] if-empty ;