where-primary-key% ( specs -- )

Vocabulary

db.queries

Inputs

specs

an object

Outputs

None

Definition

USING: accessors db.types kernel nmake sequences ;

IN: db.queries

: where-primary-key% ( specs -- )
    " where " 0% find-primary-key
    [ " and " 0% ] [ dup column-name>> 0% " = " 0% bind% ]
    interleave ;