Changeset 11320


Ignore:
Timestamp:
09/17/08 20:19:25 (14 years ago)
Author:
ehuelsmann
Message:

Change some inline simulated progn()s to progn() calls
(which is final anyway, ready to be inlined).

File:
1 edited

Legend:

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

    r11315 r11320  
    205205        LispObject varList = checkList(args.car());
    206206        final LispThread thread = LispThread.currentThread();
    207         LispObject result = NIL;
    208207        if (varList != NIL)
    209208          {
     
    235234                      }
    236235                  }
    237                 LispObject body = args.cdr();
    238                 while (body != NIL)
    239                   {
    240                     result = eval(body.car(), ext, thread);
    241                     body = body.cdr();
    242                   }
     236                return progn(args.cdr(), ext, thread);
    243237              }
    244238            finally
     
    249243        else
    250244          {
    251             LispObject body = args.cdr();
    252             while (body != NIL)
    253               {
    254                 result = eval(body.car(), env, thread);
    255                 body = body.cdr();
    256               }
    257           }
    258         return result;
     245            return progn(args.cdr(), ext, thread);
     246          }
    259247      }
    260248    };
     
    463451            progvBindVars(symbols, values, thread);
    464452            // Implicit PROGN.
    465             LispObject result = NIL;
    466             LispObject body = args.cdr().cdr();
    467             while (body != NIL)
    468               {
    469                 result = eval(body.car(), env, thread);
    470                 body = body.cdr();
    471               }
    472             return result;
     453            return progn(args.cdr().cdr(), env, thread);
    473454          }
    474455        finally
Note: See TracChangeset for help on using the changeset viewer.