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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Sep 29 17:18:55 2009
New Revision: 12167

Log:
Reorder statements to make sure the implicit block includes the evaluation
of the countForm. This fixes breakage of the DOTIMES.8 test from r12166.

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

Modified: trunk/abcl/src/org/armedbear/lisp/dotimes.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/dotimes.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/dotimes.java	Tue Sep 29 17:18:55 2009
@@ -59,11 +59,12 @@
     LispObject blockId = new LispObject();
     try
       {
-        LispObject limit = eval(countForm, env, thread);
         Environment ext = new Environment(env);
+        ext.addBlock(NIL, blockId);
+
+        LispObject limit = eval(countForm, ext, thread);
         LispObject localTags = preprocessTagBody(bodyForm, ext);
 
-        ext.addBlock(NIL, blockId);
         LispObject result;
         // Establish a reusable binding.
         final Object binding;