Changeset 11324

Timestamp:

09/19/08 19:21:55 (14 years ago)

Author:

ehuelsmann

Message:

Code cleanup.

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

File:

• trunk/j/src/org/armedbear/lisp/SpecialOperators.java (modified) (1 diff)

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

@@ -391 +391 @@
         final Environment innerEnv = new Environment(ext);
         LispObject body = args.cdr();
-        while (body != NIL)
-          {
-            LispObject obj = body.car();
-            if (obj instanceof Cons && ((Cons)obj).car == Symbol.DECLARE)
-              {
-                LispObject decls = ((Cons)obj).cdr;
-                while (decls != NIL)
-                  {
-                    LispObject decl = decls.car();
-                    if (decl instanceof Cons && ((Cons)decl).car == Symbol.SPECIAL)
-                      {
-                        LispObject vars = ((Cons)decl).cdr;
-                        while (vars != NIL)
-                          {
-                            innerEnv.declareSpecial((Symbol)((Cons)vars).car);
-                            vars = ((Cons)vars).cdr;
-                          }
-                      }
-                    decls = ((Cons)decls).cdr;
-                  }
-                body = ((Cons)body).cdr;
-              }
-            else
-              break;
-          }
+        body = innerEnv.processDeclarations(body);
         return progn(body, ext, thread);
       }