From 2f654aa0a794581bb857c38e99e0abb185c53d52 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 24 Jul 2015 05:11:31 -0700
Subject: 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.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

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);
-- 
cgit v1.2.3