Changeset 11312

Timestamp:

09/13/08 08:51:48 (15 years ago)

Author:

ehuelsmann

Message:

Replace looping over BODY by PROGN call. That's its purpose.

File:

• trunk/j/src/org/armedbear/lisp/Closure.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Closure.java

@@ -886 +886 @@
         }
     }
-    LispObject result = NIL;
-    LispObject prog = body;
     try
       {
-        while (prog != NIL)
-          {
-            result = eval(prog.car(), ext, thread);
-            prog = prog.cdr();
-          }
+        return progn(body, ext, thread);
       }
     finally
@@ -900 +894 @@
         thread.lastSpecialBinding = lastSpecialBinding;
       }
-    return result;
   }