2 files changed, 7 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)
 {
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);