Changeset 13462

Timestamp:

08/11/11 17:04:30 (9 years ago)

Author:

ehuelsmann

Message:

Prepare for more debugging support.

(Unbreaks last commit.)

File:

• trunk/abcl/src/org/armedbear/lisp/StackFrame.java (modified) (2 diffs)

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

@@ -51 +51 @@
   
   StackFrame next;
-  
+  Environment env = null;
+
   void setNext(StackFrame nextFrame) {
     this.next = nextFrame;
@@ -58 +59 @@
     return this.next;
   }
-  
+
+  /** Sets the applicable environment for this stack frame to 'env',
+   * returning the last value.
+   */
+  public Environment setEnv(Environment env) {
+    Environment e = this.env;
+    this.env = env;
+    return e;
+  }
+  /** Gets the current lexical environment of this stack frame. */
+  public Environment getEnv() {
+    return env;
+  }
   public abstract LispObject toLispList();
   public abstract SimpleString toLispString();