Changeset 13462


Ignore:
Timestamp:
08/11/11 17:04:30 (9 years ago)
Author:
ehuelsmann
Message:

Prepare for more debugging support.

(Unbreaks last commit.)

File:
1 edited

Legend:

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

    r12288 r13462  
    5151 
    5252  StackFrame next;
    53  
     53  Environment env = null;
     54
    5455  void setNext(StackFrame nextFrame) {
    5556    this.next = nextFrame;
     
    5859    return this.next;
    5960  }
    60  
     61
     62  /** Sets the applicable environment for this stack frame to 'env',
     63   * returning the last value.
     64   */
     65  public Environment setEnv(Environment env) {
     66    Environment e = this.env;
     67    this.env = env;
     68    return e;
     69  }
     70  /** Gets the current lexical environment of this stack frame. */
     71  public Environment getEnv() {
     72    return env;
     73  }
    6174  public abstract LispObject toLispList();
    6275  public abstract SimpleString toLispString();
Note: See TracChangeset for help on using the changeset viewer.