Refactoring n-ary functions to use a single helper.

* lib.c (nary_op): New function.
(plusv, mulv, logandv, logiorv): Use nary_op.

* lib.h (nary_op): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 66cc89da..cd78205e 100644
--- a/lib.h
+++ b/lib.h
@@ -536,6 +536,7 @@ val bignump(val num);
 val floatp(val num);
 val integerp(val num);
 val numberp(val num);
+val nary_op(val (*cfunc)(val, val), val args, val emptyval);
 val plus(val anum, val bnum);
 val plusv(val nlist);
 val minus(val anum, val bnum);