db.queries: add ensure-index

diff --git a/basis/db/queries/queries.factor b/basis/db/queries/queries.factor
index 3fcc32996f5c533d3d6edf66244c7fc42a95c803..7dafa8560ef94cc8819e834b85ff9074ed366578 100644 (file)
--- a/basis/db/queries/queries.factor
+++ b/basis/db/queries/queries.factor
@@ -206,6 +206,9 @@ M: db-connection <count-statement> ( query -- statement )
         "," join % ")" %
     ] "" make sql-command ;
 
+: ensure-index ( index-name table-name columns -- )
+    '[ _ _ _ create-index ] ignore-index-exists ;
+
 : drop-index ( index-name -- )
     [ "drop index " % % ] "" make sql-command ;