make-boxer ( types -- quot )

Vocabulary

typed.private

Inputs

types

an object

Outputs

quot

an object

Definition

USING: kernel sequences ;

IN: typed.private

: make-boxer ( types -- quot )
    [ [ ] ]
    [ [ boxer ] [ swap [ dip ] curry compose ] map-reduce ]
    if-empty ;