enum-boxer ( members -- quot )

Vocabulary

alien.enums.private

Inputs

members

an object

Outputs

quot

an object

Definition

USING: arrays assocs combinators hashtables kernel math
sequences ;

IN: alien.enums.private

: enum-boxer ( members -- quot )
    dup length 32 > [
        <reversed> [ first2 swap 2array ] map >hashtable
        '[ _ ?at drop ]
    ] [
        [ first2 swap '[ _ ] 2array ] { } map-as [ ] suffix
        '[ _ case ]
    ] if ;