From e6d39b7a1aa2d17c1f1d2eb890714b20f257fb17 Mon Sep 17 00:00:00 2001
From: "Paul A. Patience" <paul@apatience.com>
Date: Thu, 16 Sep 2021 20:00:27 -0400
Subject: eval: fix single-list-argument case in maprodo.

Calling maprodo with one list argument would fall back on mappend
rather than mapdo.

* eval.c (maprodo): mappendv -> mapdov.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 5d542fc9..af663ee6 100644
--- a/eval.c
+++ b/eval.c
@@ -5768,7 +5768,7 @@ static loc collect_nothing(loc ptail, val obj)
 
 static val maprodo(val fun, struct args *lists)
 {
-  return prod_common(lit("maprodo"), fun, lists, collect_nothing, mappendv);
+  return prod_common(lit("maprodo"), fun, lists, collect_nothing, mapdov);
 }
 
 static val symbol_value(val sym)
-- 
cgit v1.2.3