boxer ( type -- quot )

Vocabulary

typed.private

Inputs

type

an object

Outputs

quot

an object

Definition

USING: accessors classes.tuple kernel sequences ;

IN: typed.private

: boxer ( type -- quot )
    dup unboxable-tuple-class? [
        dup add-depends-on-unboxing
        [ all-slots [ class>> ] map make-boxer ]
        [ [ boa ] curry ] bi compose
    ] [ drop [ ] ] if ;