1 files changed, 53 insertions, 0 deletions
diff --git a/src/cli/runtime/RestFn4.cs b/src/cli/runtime/RestFn4.cs
new file mode 100644
index 00000000..9ab6aa93
--- /dev/null
+++ b/src/cli/runtime/RestFn4.cs
@@ -0,0 +1,53 @@
+/**
+ *   Copyright (c) Rich Hickey. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Common Public License 1.0 (http://opensource.org/licenses/cpl.php)
+ *   which can be found in the file CPL.TXT at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+/* rich Mar 27, 2006 8:21:51 PM */
+
+using System;
+
+namespace org.clojure.runtime
+{
+
+public abstract class RestFn4 : AFn{
+
+protected abstract Object doInvoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4, Cons rest)
+		/*throws Exception*/;
+
+override public Object applyTo(ThreadLocalData tld, Cons arglist) /*throws Exception*/
+	{
+	if(RT.boundedLength(arglist, 4) < 4)
+		throwArity();
+	return doInvoke(tld, arglist.first
+			, (arglist = arglist.rest).first
+			, (arglist = arglist.rest).first
+			, (arglist = arglist.rest).first
+			, arglist.rest);
+
+	}
+
+override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4) /*throws Exception*/
+	{
+	return doInvoke(tld, arg1, arg2, arg3, arg4, null);
+	}
+
+override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4, Object arg5)
+		/*throws Exception*/
+	{
+	return doInvoke(tld, arg1, arg2, arg3, arg4, RT.list(arg5));
+	}
+
+override public Object invoke(ThreadLocalData tld, Object arg1, Object arg2, Object arg3, Object arg4, Object arg5, Cons args)
+		/*throws Exception*/
+	{
+	return doInvoke(tld, arg1, arg2, arg3, arg4, RT.listStar(arg5, args));
+	}
+}
+}
+