db.tuples: simplify count-tuples.

2018-02-14 10:39:55 -08:00 · 2018-02-14 10:39:55 -08:00 · 276534a5e1
parent efcd5ab98d
commit 276534a5e1
1 changed files with 1 additions and 2 deletions
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@ -154,5 +154,4 @@ ERROR: no-defined-persistent object ;

 : count-tuples ( query/tuple -- n )
    >query [ tuple>> ] [ <count-statement> ] bi do-count
-    dup length 1 =
-    [ first first string>number ] [ [ first string>number ] map ] if ;
+    [ first string>number ] map dup length 1 = [ first ] when ;