peel-off-struct-attributes ( slot-spec array -- slot-spec array )


Vocabulary
classes.struct.private

Inputs
slot-specan object
arrayan object


Outputs
slot-specan object
arrayan object


Definition
USING: accessors classes.struct combinators kernel sequences
slots ;

IN: classes.struct.private

: peel-off-struct-attributes
( slot-spec array -- slot-spec array )
dup empty? [
unclip {
{ initial: [ [ first >>initial ] [ rest ] bi ] }
{ read-only [ [ t >>read-only ] dip ] }
{ bits: [ [ first set-bits ] [ rest ] bi ] }
[ bad-slot-attribute ]
} case
] unless ;