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

Vocabulary

classes.struct.private

Inputs

slot-spec	an object
array	an object

Outputs

slot-spec	an object
array	an 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 ;