lookup-create-type ( obj -- string )

Vocabulary

db.types

Inputs

obj

an object

Outputs

string

an object

Definition

USING: arrays kernel sequences ;

IN: db.types

: lookup-create-type ( obj -- string )
    dup array?
    [ unclip (lookup-type) second swap compound ]
    [ (lookup-type) second ] if ;