>reference-string ( string pair -- string )

Vocabulary

db.types

Inputs

string	an object
pair	an object

Outputs

string

an object

Definition

USING: accessors kernel sequences ;

IN: db.types

: >reference-string ( string pair -- string )
    first2 [ [ db-table-name " " glue ] [ db-columns ] bi ] dip
    swap [ column-name>> = ] with find nip [ no-column ] unless*
    column-name>> "(" ")" surround append ;