maprod, maprend: correct self name.

* eval.c (maprodv, maprendv): These functions implement maprod
and maprend; the v suffix is just in the C code and must not be
part of the self name.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index a466fde8..71901251 100644
--- a/eval.c
+++ b/eval.c
@@ -5473,12 +5473,12 @@ static val prod_common(val self, val fun, struct args *lists,
 
 val maprodv(val fun, struct args *lists)
 {
-  return prod_common(lit("maprodv"), fun, lists, list_collect, mapcarv);
+  return prod_common(lit("maprod"), fun, lists, list_collect, mapcarv);
 }
 
 val maprendv(val fun, struct args *lists)
 {
-  return prod_common(lit("maprendv"), fun, lists, list_collect_append, mappendv);
+  return prod_common(lit("maprend"), fun, lists, list_collect_append, mappendv);
 }
 
 static loc collect_nothing(loc ptail, val obj)