lisplocalframe.java

来自「计算机代数系统」· Java 代码 · 共 19 行

package net.sf.yacas;


// Local lisp stack, unwindable by the exception handler
class LispLocalFrame
{
  public LispLocalFrame(LispEnvironment aEnvironment, boolean aFenced)
  {
    iEnvironment = aEnvironment;
    iEnvironment.PushLocalFrame(aFenced);
  }
  public void Delete() throws Exception
  {
    iEnvironment.PopLocalFrame();
  }

  LispEnvironment iEnvironment;
}