Changeset 11769

Timestamp:

04/20/09 08:31:34 (14 years ago)

Author:

ehuelsmann

Message:

Rename variables to be more in line with the env/ext pattern used elsewhere.

File:

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

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

@@ -331 +331 @@
     final LispThread thread = LispThread.currentThread();
     final SpecialBinding lastSpecialBinding = thread.lastSpecialBinding;
-    final Environment ext = new Environment(env);
+    final Environment funEnv = new Environment(env);
     while (defs != NIL)
       {
@@ -374 +374 @@
         Closure closure =
           new Closure(lambda_name, lambda_expression,
-                      recursive ? ext : env);
-        ext.addFunctionBinding(name, closure);
+                      recursive ? funEnv : env);
+        funEnv.addFunctionBinding(name, closure);
         defs = defs.cdr();
       }
     try
       {
-        final Environment innerEnv = new Environment(ext);
+        final Environment ext = new Environment(funEnv);
         LispObject body = args.cdr();
-        body = innerEnv.processDeclarations(body);
-        return progn(body, innerEnv, thread);
+        body = ext.processDeclarations(body);
+        return progn(body, ext, thread);
       }
     finally