From fbd5d992000a15b75edd94013badacf03189d0bd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 18 Oct 2016 05:57:38 -0700
Subject: 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.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
   }
-- 
cgit v1.2.3