From 57ee9921068282f47c0ed91e53a0923e6f08e6e4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 5 Mar 2017 10:11:46 -0800
Subject: streamline default alg handling in group-reduce.

* hash.c (group_reduce): Don't pointlessly default filter_fun to
identity_f, and then check for that value and not use it.
Just skip the filtering code if the argument is missing.
---
 hash.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'hash.c')

diff --git a/hash.c b/hash.c
index 9b1d4b46..c9aa5b6a 100644
--- a/hash.c
+++ b/hash.c
@@ -1086,7 +1086,6 @@ val group_reduce(val hash, val by_fun, val reduce_fun, val seq,
                  val initval, val filter_fun)
 {
   initval = default_bool_arg(initval);
-  filter_fun = default_arg(filter_fun, identity_f);
 
   if (vectorp(seq)) {
     cnum i, len;
@@ -1116,7 +1115,7 @@ val group_reduce(val hash, val by_fun, val reduce_fun, val seq,
     }
   }
 
-  if (filter_fun != identity_f) {
+  if (!null_or_missing_p(filter_fun)) {
     val iter = hash_begin(hash);
     val cell;
 
-- 
cgit v1.2.3