Remove dead code

diff --git a/extra/db/queries/queries.factor b/extra/db/queries/queries.factor
index 9e93ba7cadd6670c163e8926a17425682f1848df..7960eecee5089f35533391b6a9d9f56e5b04e486 100644 (file)
--- a/extra/db/queries/queries.factor
+++ b/extra/db/queries/queries.factor
@@ -178,24 +178,6 @@ M: db <count-statement> ( tuple class groups -- statement )
     [ [ "select count(*) from " 0% 0% where-clause ] query-make ]
     dip make-query ;
 
-: where-clause* ( tuple specs -- )
-    dupd filter-slots [
-        drop
-    ] [
-        \ where 0,
-        [ 2dup slot-name>> swap get-slot-named where ] map 2array 0,
-        drop
-    ] if-empty ;
-
-: delete-tuple* ( tuple -- sql )
-    dup
-    [
-        delete 0, from 0, dup class db-table 0,
-        dup class db-columns where-clause*
-    ] { { } { } { } } 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> "(" %