lookup-type ( obj -- string )

Vocabulary

db.types

Inputs

obj

an object

Outputs

string

an object

Definition

USING: arrays kernel sequences ;

IN: db.types

: lookup-type ( obj -- string )
    dup array?
    [ unclip (lookup-type) first nip ] [ (lookup-type) first ]
    if ;