Add func_n6o.

* lib.c (func_n6o): New function.

* lib.h (func_n6o): Declared.

1 files changed, 6 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index e5c6b3fc..80ec19b5 100644
--- a/lib.c
+++ b/lib.c
@@ -4453,6 +4453,12 @@ val func_n5o(val (*fun)(val, val, val, val, val), int reqargs)
   return obj;
 }
 
+val func_n6o(val (*fun)(val, val, val, val, val, val), int reqargs)
+{
+  val obj = func_n6(fun);
+  obj->f.optargs = 6 - reqargs;
+  return obj;
+}
 
 val func_n1ov(val (*fun)(val, varg), int reqargs)
 {