lisplocalframe.java

计算机代数系统

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;
}