lookup-modifier ( obj -- string )

Vocabulary

db.types

Inputs

obj

an object

Outputs

string

an object

Definition

USING: arrays assocs combinators kernel sequences ;

IN: db.types

: lookup-modifier ( obj -- string )
    {
        {
            [ dup array? ]
            [ unclip lookup-modifier swap compound ]
        }
        [
            persistent-table ?at [ unknown-modifier ] unless
            third
        ]
    } cond ;