enum-boxer ( members -- quot )

Vocabulary

alien.enums.private

Inputs

members

an object

Outputs

quot

an object

Definition

USING: arrays combinators kernel sequences ;

IN: alien.enums.private

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