-- JunoErrorImpl.mesa
-- Last Edited by: Gnelson, November 30, 1983 2:38 am

DIRECTORY JunoBind, Rope;

JunoErrorImpl: DEFINITIONS = {OPEN JunoError

Error: PUBLIC PROC [backtrace: LIST OF Frame, ErrorMessage: Rope.ROPE] = {
  
  print the error message in the Juno2Top interpreter window
  
  Push the backtrace on the stack of back traces (which lives in this module)
    
  unparse the frame into the error display window, with the designated subform highlighted.
  
  Call Juno2Top.ReadEvalPrint("n>")  where n is the depth of the stack of back traces
  
  If it returned "proceed" then {Pop the stack of backtraces; return}
  
  If it returns "abort" then {Pop the stack of backtraces; SIGNAL ABORTED}.
  
}.