[armedbear-cvs] r11770 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Apr 20 08:42:37 2009
New Revision: 11770

Log:
Removal of small code duplication.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Environment.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Environment.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Environment.java	Mon Apr 20 08:42:37 2009
@@ -57,13 +57,7 @@
   // value binding.
   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);
   }