reuse do_reduce in full_reduce

1 files changed, 2 insertions, 6 deletions

diff --git a/src/ebtree.erl b/src/ebtree.erl
index c481e5a40..a21b3435d 100644
--- a/src/ebtree.erl
+++ b/src/ebtree.erl
@@ -164,12 +164,8 @@ full_reduce(Db, #tree{} = Tree) ->
         ({traverse, _F, _L, R}, {MapAcc, ReduceAcc}) ->
             {skip, {MapAcc, [R | ReduceAcc]}}
     end,
-    case fold(Db, Tree, Fun, {[], []}) of
-        {MapAcc, []} ->
-            reduce_values(Tree, MapAcc, false);
-        {[], ReduceAcc} ->
-            reduce_values(Tree, ReduceAcc, true)
-    end.
+    {MapValues, ReduceValues} = fold(Db, Tree, Fun, {[], []}),
+    do_reduce(Tree, MapValues, ReduceValues).
 
 
 %% reduce