[armedbear-cvs] r11514 - trunk/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Tue Dec 30 15:36:46 2008
New Revision: 11514

Log:
CompiledClosure should delegate to CTF.execute, not CTF._execute.


Modified:
   trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java

Modified: trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/CompiledClosure.java	Tue Dec 30 15:36:46 2008
@@ -54,20 +54,20 @@
     @Override
     public LispObject execute() throws ConditionThrowable
     {
-        return ctf._execute(context);
+        return ctf.execute();
     }
 
     @Override
     public LispObject execute(LispObject arg) throws ConditionThrowable
     {
-        return ctf._execute(context, arg);
+        return ctf.execute(arg);
     }
 
     @Override
     public LispObject execute(LispObject first, LispObject second)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second);
+        return ctf.execute(first, second);
     }
 
     @Override
@@ -75,7 +75,7 @@
                               LispObject third)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third);
+        return ctf.execute(first, second, third);
     }
 
     @Override
@@ -83,7 +83,7 @@
                               LispObject third, LispObject fourth)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third, fourth);
+        return ctf.execute(first, second, third, fourth);
     }
 
     @Override
@@ -92,7 +92,7 @@
                               LispObject fifth)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third, fourth, fifth);
+        return ctf.execute(first, second, third, fourth, fifth);
     }
 
     @Override
@@ -101,7 +101,7 @@
                               LispObject fifth, LispObject sixth)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third, fourth, fifth, sixth);
+        return ctf.execute(first, second, third, fourth, fifth, sixth);
     }
 
     @Override
@@ -111,7 +111,7 @@
                               LispObject seventh)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third, fourth, fifth, sixth,
+        return ctf.execute(first, second, third, fourth, fifth, sixth,
                            seventh);
     }
 
@@ -122,13 +122,13 @@
                               LispObject seventh, LispObject eighth)
         throws ConditionThrowable
     {
-        return ctf._execute(context, first, second, third, fourth, fifth, sixth,
+        return ctf.execute(first, second, third, fourth, fifth, sixth,
                            seventh, eighth);
     }
 
     @Override
     public LispObject execute(LispObject[] args) throws ConditionThrowable
     {
-        return ctf._execute(context, args);
+        return ctf.execute(args);
     }
 }