(lookup-type) ( obj -- string )

Vocabulary

db.types

Inputs

obj

an object

Outputs

string

an object

Definition

USING: assocs kernel ;

IN: db.types

: (lookup-type) ( obj -- string )
    persistent-table ?at [ no-sql-type ] unless ;