From eb8207a784ba231e6b3b5f44e6828acba610edba Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 27 Feb 2008 19:36:32 -0600
Subject: [PATCH] fix with-disposals to work on seq or obj

---
 extra/db/tuples/tuples-tests.factor | 8 ++++----
 extra/db/tuples/tuples.factor       | 6 +++++-
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/extra/db/tuples/tuples-tests.factor b/extra/db/tuples/tuples-tests.factor
index 83b814378b..c9e6d302e0 100755
--- a/extra/db/tuples/tuples-tests.factor
+++ b/extra/db/tuples/tuples-tests.factor
@@ -67,8 +67,8 @@ person "PERSON"
 "billy" 10 3.14 <person> the-person1 set
 "johnny" 10 3.14 <person> the-person2 set
 
-! test-sqlite
-test-postgresql
+test-sqlite
+! test-postgresql
 
 person "PERSON"
 {
@@ -81,8 +81,8 @@ 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-postgresql
+test-sqlite
+! test-postgresql
 
 TUPLE: paste n summary author channel mode contents timestamp annotations ;
 TUPLE: annotation n paste-id summary author mode contents ;
diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor
index f384ea08db..e7fe7e49c2 100755
--- a/extra/db/tuples/tuples.factor
+++ b/extra/db/tuples/tuples.factor
@@ -64,7 +64,11 @@ HOOK: insert-tuple* db ( tuple statement -- )
     dup db-columns swap db-table ;
 
 : with-disposals ( seq quot -- )
-    [ with-disposal ] curry each ;
+    over sequence? [
+        [ with-disposal ] curry each
+    ] [
+        with-disposal
+    ] if ;
 
 : create-table ( class -- )
     create-sql-statement [ execute-statement ] with-disposals ;