Changeset 12171


Ignore:
Timestamp:
10/04/09 13:30:50 (12 years ago)
Author:
ehuelsmann
Message:

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

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Environment.java

    r12170 r12171  
    196196  }
    197197
    198   public void addTagBinding(LispObject tag, Environment env, LispObject code)
    199   {
    200     tags = new Binding(tag, env, code, tags);
     198  public void addTagBinding(LispObject tag, LispObject code)
     199  {
     200    tags = new Binding(tag, this, code, tags);
    201201  }
    202202
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r12170 r12171  
    639639          continue;
    640640        // It's a tag.
    641         env.addTagBinding(current, env, body);
     641        env.addTagBinding(current, body);
    642642        localTags = new Cons(current, localTags);
    643643      }
Note: See TracChangeset for help on using the changeset viewer.