peel-off-class ( 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: classes kernel sequences ;

IN: slots

: peel-off-class ( slot-spec array -- slot-spec array )
    dup empty? [
        dup first classoid?
        [ [ first init-slot-class ] [ rest ] bi ] when
    ] unless ;