check-statement ( retcode hstmt -- )

Vocabulary

odbc

Inputs

retcode	an object
hstmt	an object

Outputs

None

Definition

USING: kernel ;

IN: odbc

: check-statement ( retcode hstmt -- )
    swap succeeded? [ drop ] [ throw-statement-error ] if ;