db.tuples: use fry instead of curry, fix stack effect of check-columns.

diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index 6e009d84d567fe94b38f36c44bfb6f39ddc4ff9f..7a8d6e567445527329098de49ff7c94fdb36eaa5 100644 (file)
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@@ -40,13 +40,11 @@ GENERIC: eval-generator ( singleton -- object )
 
 : query-modify-tuple ( tuple statement -- )
     [ query-results [ sql-row-typed ] with-disposal ] keep
-    out-params>> rot [
-        [ slot-name>> ] dip set-slot-named
-    ] curry 2each ;
+    out-params>> rot '[ slot-name>> _ set-slot-named ] 2each ;
 
 : with-disposals ( object quotation -- )
     over sequence? [
-        over [ dispose-each ] curry [ ] cleanup
+        over '[ _ dispose-each ] [ ] cleanup
     ] [
         with-disposal
     ] if ; inline
@@ -73,7 +71,8 @@ PRIVATE>
 
 ! High level
 ERROR: no-slots-named class seq ;
-: check-columns ( class columns -- )
+
+: check-columns ( columns class -- )
     [ nip ] [
         [ keys ]
         [ all-slots [ name>> ] map ] bi* diff