unparse-slot ( slot-spec -- array )

Vocabulary

see.private

Inputs

slot-spec

an object

Outputs

array

an object

Definition

USING: accessors 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>> ] bi or
        [ initial: , dup initial>> , ] when drop
    ] { } make ;