Changeset 11333


Ignore:
Timestamp:
10/01/08 20:39:16 (14 years ago)
Author:
ehuelsmann
Message:

Code simplification.

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

File:
1 edited

Legend:

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

    r11324 r11333  
    282282        final Environment ext = new Environment(env);
    283283        args = ext.processDeclarations(args);
    284         LispObject result = NIL;
    285         while (args != NIL)
    286           {
    287             result = eval(args.car(), ext, thread);
    288             args = args.cdr();
    289           }
    290         return result;
     284        return progn(args, ext, thread);
    291285      }
    292286    };
     
    300294      {
    301295        LispThread thread = LispThread.currentThread();
    302         LispObject result = NIL;
    303         while (args != NIL)
    304           {
    305             result = eval(args.car(), env, thread);
    306             args = ((Cons)args).cdr;
    307           }
    308         return result;
     296        return progn(args, env, thread);
    309297      }
    310298    };
Note: See TracChangeset for help on using the changeset viewer.