From 1b033ba4d434efc0c1d55c33305b686338eb5f50 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 10 Nov 2015 06:46:12 -0800
Subject: Add func_n6o.

* lib.c (func_n6o): New function.

* lib.h (func_n6o): Declared.
---
 lib.c | 6 ++++++
 lib.h | 1 +
 2 files changed, 7 insertions(+)

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)
 {
diff --git a/lib.h b/lib.h
index 60ef6d8c..db7b6e95 100644
--- a/lib.h
+++ b/lib.h
@@ -775,6 +775,7 @@ val func_n2o(val (*fun)(val, val), int reqargs);
 val func_n3o(val (*fun)(val, val, val), int reqargs);
 val func_n4o(val (*fun)(val, val, val, val), int reqargs);
 val func_n5o(val (*fun)(val, val, val, val, val), int reqargs);
+val func_n6o(val (*fun)(val, val, val, val, val, val), int reqargs);
 val func_n1ov(val (*fun)(val, varg), int reqargs);
 val func_n2ov(val (*fun)(val, val, varg), int reqargs);
 val func_n3ov(val (*fun)(val, val, val, varg), int reqargs);
-- 
cgit v1.2.3