* eval.c (apf, ipf): Bugfix: do_apf and do_ipf

should be registered as variadic functions.

1 files changed, 2 insertions, 2 deletions

diff --git a/eval.c b/eval.c
index 0d2a6144..55cda3cf 100644
--- a/eval.c
+++ b/eval.c
@@ -3182,7 +3182,7 @@ static val do_apf(val fun, val args)
 
 static val apf(val fun)
 {
-  return func_f1(fun, do_apf);
+  return func_f0v(fun, do_apf);
 }
 
 static val do_ipf(val fun, val args)
@@ -3192,7 +3192,7 @@ static val do_ipf(val fun, val args)
 
 static val ipf(val fun)
 {
-  return func_f1(fun, do_ipf);
+  return func_f0v(fun, do_ipf);
 }
 
 static val prinl(val obj, val stream)