Changeset 11333

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:

• trunk/j/src/org/armedbear/lisp/SpecialOperators.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/SpecialOperators.java

@@ -282 +282 @@
         final Environment ext = new Environment(env);
         args = ext.processDeclarations(args);
-        LispObject result = NIL;
-        while (args != NIL)
-          {
-            result = eval(args.car(), ext, thread);
-            args = args.cdr();
-          }
-        return result;
+        return progn(args, ext, thread);
       }
     };
@@ -300 +294 @@
       {
         LispThread thread = LispThread.currentThread();
-        LispObject result = NIL;
-        while (args != NIL)
-          {
-            result = eval(args.car(), env, thread);
-            args = ((Cons)args).cdr;
-          }
-        return result;
+        return progn(args, env, thread);
       }
     };