slot-type ( slot docs -- type )

Vocabulary

foogle.private

Inputs

slot	an object
docs	an object

Outputs

type

an object

Definition

USING: arrays assocs classes combinators.short-circuit effects
kernel sequences ;

IN: foogle.private

:: slot-type ( slot docs -- type )
    slot pair?
    [ slot second ] [
        slot { [ classoid? ] [ effect? ] } 1||
        [ slot ] [ slot docs at ] if
    ] if dup { [ classoid? ] [ effect? ] } 1||
    [ drop object ] unless ;