* lib.c (reduce_left, reduce_right): Nullify incoming sequence

argument so empty vectors and strings can be processed.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 863be13b..2b209b77 100644
--- a/lib.c
+++ b/lib.c
@@ -3983,6 +3983,8 @@ val reduce_left(val fun, val list, val init, val key)
   if (null_or_missing_p(key))
     key = identity_f;
 
+  list = nullify(list);
+
   if (missingp(init)) {
     if (list)
       init = pop(&list);
@@ -4001,6 +4003,8 @@ val reduce_right(val fun, val list, val init, val key)
   if (null_or_missing_p(key))
     key = identity_f;
 
+  list = nullify(list);
+
   if (list) {
     if (missingp(init)) {
       if (!rest(list))