unparse-slot ( slot-spec -- array )

Vocabulary

see.private

Inputs

slot-spec

an object

Outputs

array

an object

Definition

USING: accessors combinators.short-circuit kernel make ;

IN: see.private

: unparse-slot ( slot-spec -- array )
    [
        dup name>> , dup class>> object eq?
        [ dup class>> , ] unless dup read-only>>
        [ read-only , ] when dup
        { [ class>> object eq? not ] [ initial>> ] } 1||
        [ initial: , dup initial>> , ] when drop
    ] { } make ;