enum-boxer ( members -- quot )


Vocabulary
alien.enums.private

Inputs
membersan object


Outputs
quotan object


Definition
USING: arrays combinators kernel sequences ;

IN: alien.enums.private

: enum-boxer ( members -- quot )
[ first2 swap [ ] curry 2array ] { } map-as [ ] suffix
[ case ] curry ;