--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/luan/interp/LuaClosure.java	Thu Dec 13 02:50:04 2012 +0000
@@ -0,0 +1,52 @@
+package luan.interp;
+
+import luan.LuaFunction;
+import luan.LuaState;
+import luan.LuaException;
+
+
+final class LuaClosure extends LuaFunction {
+	private final Chunk chunk;
+
+	LuaClosure(Chunk chunk,LuaStateImpl lua) {
+		this.chunk = chunk;
+	}
+
+	public Object[] call(LuaState luaState,Object... args) throws LuaException {
+		LuaStateImpl lua = (LuaStateImpl)luaState;
+		Chunk chunk = this.chunk;
+		while(true) {
+			Object[] varArgs = null;
+			if( chunk.isVarArg ) {
+				if( args.length > chunk.numArgs ) {
+					varArgs = new Object[ args.length - chunk.numArgs ];
+					for( int i=0; i<varArgs.length; i++ ) {
+						varArgs[i] = args[chunk.numArgs+i];
+					}
+				} else {
+					varArgs = LuaFunction.EMPTY_RTN;
+				}
+			}
+			Object[] stack = lua.newStack(chunk.stackSize,varArgs);
+			final int n = Math.min(args.length,chunk.numArgs);
+			for( int i=0; i<n; i++ ) {
+				stack[i] = args[i];
+			}
+			Object[] returnValues;
+			LuaClosure tailFn;
+			try {
+				chunk.block.eval(lua);
+			} catch(ReturnException e) {
+			} finally {
+				returnValues = lua.returnValues;
+				tailFn = lua.tailFn;
+				lua.popStack();
+			}
+			if( tailFn == null )
+				return returnValues;
+			chunk = tailFn.chunk;
+			args = returnValues;
+		}
+	}
+
+}