new accessors

db4
Doug Coleman 2008-08-30 12:46:30 -05:00
parent 3273ff4009
commit ad0e111572
1 changed files with 2 additions and 2 deletions

View File

@ -127,12 +127,12 @@ M: retryable execute-statement* ( statement type -- )
: insert-db-assigned-statement ( tuple -- )
dup class
db get db-insert-statements [ <insert-db-assigned-statement> ] cache
db get insert-statements>> [ <insert-db-assigned-statement> ] cache
[ bind-tuple ] 2keep insert-tuple* ;
: insert-user-assigned-statement ( tuple -- )
dup class
db get db-insert-statements [ <insert-user-assigned-statement> ] cache
db get insert-statements>> [ <insert-user-assigned-statement> ] cache
[ bind-tuple ] keep execute-statement ;
: insert-tuple ( tuple -- )