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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Oct  4 09:30:50 2009
New Revision: 12171

Log:
Cleanup thinko in addTagBinding: there's no need to specify the
environment to add to.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Environment.java
   trunk/abcl/src/org/armedbear/lisp/Lisp.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	Sun Oct  4 09:30:50 2009
@@ -195,9 +195,9 @@
     return null;
   }
 
-  public void addTagBinding(LispObject tag, Environment env, LispObject code)
+  public void addTagBinding(LispObject tag, LispObject code)
   {
-    tags = new Binding(tag, env, code, tags);
+    tags = new Binding(tag, this, code, tags);
   }
 
   public Binding getTagBinding(LispObject tag)

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Sun Oct  4 09:30:50 2009
@@ -638,7 +638,7 @@
         if (current instanceof Cons)
           continue;
         // It's a tag.
-        env.addTagBinding(current, env, body);
+        env.addTagBinding(current, body);
         localTags = new Cons(current, localTags);
       }
     return localTags;