From 869cfd54630a7259dfdab9d17e50aaefec6b36d8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Feb 2008 15:38:20 -0600
Subject: [PATCH] fix sqlite -- wasn't settin gthe bound? flag

---
 extra/db/sqlite/sqlite.factor       | 3 ++-
 extra/db/tuples/tuples-tests.factor | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/extra/db/sqlite/sqlite.factor b/extra/db/sqlite/sqlite.factor
index b980e99718..d873e98a95 100755
--- a/extra/db/sqlite/sqlite.factor
+++ b/extra/db/sqlite/sqlite.factor
@@ -64,7 +64,8 @@ M: sqlite-statement bind-tuple ( tuple statement -- )
             [ sql-spec-type ] tri 3array
         ] with map
     ] keep
-    [ set-statement-bind-params ] keep bind-statement* ;
+    [ set-statement-bind-params ] keep
+    t over set-statement-bound? bind-statement* ;
 
 : last-insert-id ( -- id )
     db get db-handle sqlite3_last_insert_rowid
diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor
index c9e6d302e0..ade18286b4 100755
--- a/extra/db/tuples/tuples-tests.factor
+++ b/extra/db/tuples/tuples-tests.factor
@@ -81,7 +81,7 @@ person "PERSON"
 1 "billy" 10 3.14 <assigned-person> the-person1 set
 2 "johnny" 10 3.14 <assigned-person> the-person2 set
 
-test-sqlite
+! test-sqlite
 ! test-postgresql
 
 TUPLE: paste n summary author channel mode contents timestamp annotations ;