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.

1 files changed, 1 insertions, 2 deletions

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;