set-primary-key ( value tuple -- )

Vocabulary

db.types

Inputs

value	an object
tuple	an object

Outputs

None

Definition

USING: accessors classes classes.tuple kernel sequences ;

IN: db.types

: set-primary-key ( value tuple -- )
    [ class-of db-columns find-primary-key first slot-name>> ]
    keep set-slot-named ;