reduce-left bugfix: bad init val with key-func.

* lib.c (reduce_left): init value pulled from
list itself must be passed through the key function.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 46033a21..e4f7f912 100644
--- a/lib.c
+++ b/lib.c
@@ -5768,7 +5768,7 @@ val reduce_left(val fun, val list, val init, val key)
 
   if (missingp(init)) {
     if (list)
-      init = pop(&list);
+      init = funcall1(key, pop(&list));
     else
       return funcall(fun);
   }