more sql changes

[factor.git] / libs / sql / sqlite / simple.factor

diff --git a/libs/sql/sqlite/simple.factor b/libs/sql/sqlite/simple.factor
index 6970c91f107a266ec38d0bf53b99e3fc0f411a22..eed89fcf0b077cc89d3eb405a953416c634b8fd2 100644 (file)
--- a/libs/sql/sqlite/simple.factor
+++ b/libs/sql/sqlite/simple.factor
@@ -14,6 +14,9 @@ M: sqlite create-sql* ( db tuple -- string )
         ");" %\r
     ] "" make ;\r
 \r
+M: sqlite drop-sql* ( db tuple -- string )\r
+    nip [ "drop table " % tuple>sql-name % ";" % ] "" make \r
+\r
 M: sqlite insert-sql* ( db tuple -- string )\r
     #! Insert and fill in the ID column\r
     nip [\r