Changeset 11770

Timestamp:

04/20/09 12:42:37 (14 years ago)

Author:

ehuelsmann

Message:

Removal of small code duplication.

File:

• trunk/abcl/src/org/armedbear/lisp/Environment.java (modified) (1 diff)

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

@@ -58 +58 @@
   public Environment(Environment parent, Symbol symbol, LispObject value)
   {
-    if (parent != null)
-      {
-        vars = parent.vars;
-        lastFunctionBinding = parent.lastFunctionBinding;
-        blocks = parent.blocks;
-        tags = parent.tags;
-      }
+    this(parent);
     vars = new Binding(symbol, value, vars);
   }