From ad0e1115720b032f7cfb02a98d923822ad03a4dc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 30 Aug 2008 12:46:30 -0500 Subject: [PATCH] new accessors --- extra/db/tuples/tuples.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor index e02e21cbe6..71cf878d2f 100755 --- a/extra/db/tuples/tuples.factor +++ b/extra/db/tuples/tuples.factor @@ -127,12 +127,12 @@ M: retryable execute-statement* ( statement type -- ) : insert-db-assigned-statement ( tuple -- ) dup class - db get db-insert-statements [ ] cache + db get insert-statements>> [ ] cache [ bind-tuple ] 2keep insert-tuple* ; : insert-user-assigned-statement ( tuple -- ) dup class - db get db-insert-statements [ ] cache + db get insert-statements>> [ ] cache [ bind-tuple ] keep execute-statement ; : insert-tuple ( tuple -- )