db.tuples: simplify count-tuples.

windows-high-dpi
John Benediktsson 2018-02-14 10:39:55 -08:00
parent efcd5ab98d
commit 276534a5e1
1 changed files with 1 additions and 2 deletions

View File

@ -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 ;