ensure-defined-persistent ( object -- object )

Vocabulary

db.tuples

Inputs

object

an object

Outputs

object

an object

Definition

USING: classes combinators.short-circuit kernel words ;

IN: db.tuples

: ensure-defined-persistent ( object -- object )
    dup { [ class? ] [ "db-table" word-prop ] } 1&&
    [ no-defined-persistent ] unless ;