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.

1 files changed, 1 insertions, 1 deletions

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)