remove dead code

db4
Doug Coleman 2008-10-01 18:16:29 -05:00
parent 62a8d45c0e
commit 39aec88602
1 changed files with 0 additions and 12 deletions

View File

@ -186,18 +186,6 @@ M: db query>statement ( query -- tuple )
! select ID, NAME, SCORE from EXAM limit 1 offset 3
: select-tuples* ( tuple -- statement )
dup
[
select 0,
dup class db-columns [ ", " 0, ]
[ dup column-name>> 0, 2, ] interleave
from 0,
class name>> 0,
] { { } { } { } } nmake
>r >r parse-sql 4drop r> r>
<simple-statement> maybe-make-retryable do-select ;
M: db <count-statement> ( query -- statement )
[ tuple>> dup class ] keep
[ [ "select count(*) from " 0% 0% where-clause ] query-make ]