more sql changes

libs/sql/simple.factor

@@ -16,38 +16,38 @@ G: select-sql* ( db tuple -- string ) 1 standard-combination ;
 : update-sql ( tuple -- string ) >r db get r> update-sql* ;
 : select-sql ( tuple -- string ) >r db get r> select-sql* ;
 
-M: connection create-sql* ( db tuple -- string )
-    nip [
-        "create table " %
-        dup class unparse % "(" %
-        tuple>mapping%
-        ");" %
-    ] "" make ;
+! M: connection create-sql* ( db tuple -- string )
+    ! nip [
+        ! "create table " %
+        ! dup class unparse % "(" %
+        ! tuple>mapping%
+        ! ");" %
+    ! ] "" make ;
 
-M: connection drop-sql* ( db tuple -- string )
-    nip [ "drop table " % tuple>sql-name % ";" % ] "" make ;
-
-M: connection insert-sql* ( db tuple -- string )
-    nip [
-        "insert into " %
-        dup tuple>sql-name %
-        ! " (" % fulltuple>insert-all-parts dup first ", " join %
-        ") values(" %
-        second [ escape-sql enquote ] map ", " join %
-        ");" %
-    ] "" make ;
-
-M: connection delete-sql* ( db tuples -- string )
-    nip [
-        ! "delete from table " % unparse % ";" %
-    ] "" make ;
-
-M: connection update-sql* ( db tuples -- string )
-    nip [
-    ] "" make ;
-
-M: connection select-sql* ( db tuples -- string )
-    nip [
-    ] "" make ;
+! M: connection drop-sql* ( db tuple -- string )
+    ! nip [ "drop table " % tuple>sql-name % ";" % ] "" make ;
+! 
+! M: connection insert-sql* ( db tuple -- string )
+    ! nip [
+        ! "insert into " %
+        ! dup tuple>sql-name %
+        ! ! " (" % fulltuple>insert-all-parts dup first ", " join %
+        ! ") values(" %
+        ! second [ escape-sql enquote ] map ", " join %
+        ! ");" %
+    ! ] "" make ;
+! 
+! M: connection delete-sql* ( db tuples -- string )
+    ! nip [
+        ! ! "delete from table " % unparse % ";" %
+    ! ] "" make ;
+! 
+! M: connection update-sql* ( db tuples -- string )
+    ! nip [
+    ! ] "" make ;
+! 
+! M: connection select-sql* ( db tuples -- string )
+    ! nip [
+    ! ] "" make ;
 
 

libs/sql/sqlite/simple.factor

@@ -14,6 +14,9 @@ M: sqlite create-sql* ( db tuple -- string )
         ");" %
     ] "" make ;
 
+M: sqlite drop-sql* ( db tuple -- string )
+    nip [ "drop table " % tuple>sql-name % ";" % ] "" make 
+
 M: sqlite insert-sql* ( db tuple -- string )
     #! Insert and fill in the ID column
     nip [