define-db ( database class -- )

Vocabulary

persistency

Inputs

database	an object
class	an object

Outputs

None

Definition

USING: db db.tuples kernel words ;

IN: persistency

: define-db ( database class -- )
    swap
    [ [ ensure-table ] with-db ] [ "database" set-word-prop ]
    2bi ;