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

Vocabulary

slots

Inputs

slot-spec	an object
array	an object

Outputs

slot-spec	an object
array	an object

Definition

USING: accessors combinators kernel sequences ;

IN: slots

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