Changeset 12167


Ignore:
Timestamp:
09/29/09 21:18:55 (12 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/dotimes.java

    r12166 r12167  
    6060    try
    6161      {
    62         LispObject limit = eval(countForm, env, thread);
    6362        Environment ext = new Environment(env);
     63        ext.addBlock(NIL, blockId);
     64
     65        LispObject limit = eval(countForm, ext, thread);
    6466        LispObject localTags = preprocessTagBody(bodyForm, ext);
    6567
    66         ext.addBlock(NIL, blockId);
    6768        LispObject result;
    6869        // Establish a reusable binding.
Note: See TracChangeset for help on using the changeset viewer.