From f508f57fa06aed9e6bd58aaf471a2ecbc828d19c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 13 Jun 2008 01:17:10 -0500
Subject: [PATCH] add create-index

---
 extra/db/queries/queries.factor | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/extra/db/queries/queries.factor b/extra/db/queries/queries.factor
index 807aeda74a..5c3f3e13e6 100644
--- a/extra/db/queries/queries.factor
+++ b/extra/db/queries/queries.factor
@@ -195,3 +195,12 @@ M: db <count-statement> ( tuple class groups -- statement )
     ] { { } { } { } } nmake
     >r >r parse-sql 4drop r> r>
     <simple-statement> maybe-make-retryable do-select ;
+
+: create-index ( index-name table-name columns -- )
+    [
+        >r >r "create index " % % r> " on " % % r> "(" %
+        "," join % ")" %
+    ] "" make sql-command ;
+
+: drop-index ( index-name -- )
+    [ "drop index " % % ] "" make sql-command ;