db.tuples: simplify count-tuples.
parent
efcd5ab98d
commit
276534a5e1
|
@ -154,5 +154,4 @@ ERROR: no-defined-persistent object ;
|
||||||
|
|
||||||
: count-tuples ( query/tuple -- n )
|
: count-tuples ( query/tuple -- n )
|
||||||
>query [ tuple>> ] [ <count-statement> ] bi do-count
|
>query [ tuple>> ] [ <count-statement> ] bi do-count
|
||||||
dup length 1 =
|
[ first string>number ] map dup length 1 = [ first ] when ;
|
||||||
[ first first string>number ] [ [ first string>number ] map ] if ;
|
|
||||||
|
|
Loading…
Reference in New Issue