Changeset 11312


Ignore:
Timestamp:
09/13/08 08:51:48 (14 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Closure.java

    r11309 r11312  
    886886        }
    887887    }
    888     LispObject result = NIL;
    889     LispObject prog = body;
    890888    try
    891889      {
    892         while (prog != NIL)
    893           {
    894             result = eval(prog.car(), ext, thread);
    895             prog = prog.cdr();
    896           }
     890        return progn(body, ext, thread);
    897891      }
    898892    finally
     
    900894        thread.lastSpecialBinding = lastSpecialBinding;
    901895      }
    902     return result;
    903896  }
    904897
Note: See TracChangeset for help on using the changeset viewer.