From 276534a5e1ebbd47769b602b9fb4d0f2c62913f6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 14 Feb 2018 10:39:55 -0800 Subject: [PATCH] db.tuples: simplify count-tuples. --- basis/db/tuples/tuples.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor index 7a8d6e5674..76bba72dbe 100644 --- 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>> ] [ ] bi do-count - dup length 1 = - [ first first string>number ] [ [ first string>number ] map ] if ; + [ first string>number ] map dup length 1 = [ first ] when ;