Changeset 11335


Ignore:
Timestamp:
10/05/08 12:58:35 (13 years ago)
Author:
ehuelsmann
Message:

Cleanup.

Patch by: Phil Hudson <phil dot hudson at iname dot com>

File:
1 edited

Legend:

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

    r11322 r11335  
    680680          {
    681681            args = args.cdr();
    682             LispObject result = NIL;
    683682            thread.clearValues();
    684             while (args != NIL)
    685               {
    686                 result = eval(args.car(), env, thread);
    687                 args = args.cdr();
    688               }
    689             return result;
     683            return progn(args, env, thread);
    690684          }
    691685        return thread.setValues(NIL);
     
    706700          {
    707701            args = args.cdr();
    708             LispObject result = NIL;
    709702            thread.clearValues();
    710             while (args != NIL)
    711               {
    712                 result = eval(args.car(), env, thread);
    713                 args = args.cdr();
    714               }
    715             return result;
     703            return progn(args, env, thread);
    716704          }
    717705        return thread.setValues(NIL);
     
    36703658        try
    36713659          {
    3672             while (body != NIL)
    3673               {
    3674                 result = eval(body.car(), ext, thread);
    3675                 body = ((Cons)body).cdr;
    3676               }
    3677             return result;
     3660            return progn(body, ext, thread);
    36783661          }
    36793662        catch (Return ret)
     
    37423725        try
    37433726          {
    3744             while (body != NIL)
    3745               {
    3746                 result = eval(body.car(), env, thread);
    3747                 body = body.cdr();
    3748               }
    3749             return result;
     3727            return progn(body, env, thread);
    37503728          }
    37513729        catch (Throw t)
     
    39333911        try
    39343912          {
    3935             while (body != NIL)
    3936               {
    3937                 result = eval(body.car(), ext, thread);
    3938                 body = ((Cons)body).cdr;
    3939               }
     3913            result  = progn(body, ext, thread);
    39403914          }
    39413915        finally
Note: See TracChangeset for help on using the changeset viewer.