add-types ( table -- table' )

Vocabulary

persistency

Inputs

table

an object

Outputs

table'

an object

Definition

USING: arrays db.types kernel sequences unicode ;

IN: persistency

: add-types ( table -- table' )
    [
        dup array?
        [ [ first dup >upper ] [ second ] bi 3array ]
        [ dup >upper FACTOR-BLOB 3array ] if
    ] map { "id" "ID" +db-assigned-id+ } prefix ;