Handbook Glossary
factorcode.org
boxer ( type -- quot )


Vocabulary
typed.private

Inputs
typean object


Outputs
quotan 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 ;