MODULE JunoCompileErr;

IMPORT JunoAST;

PROCEDURE Raise(msg: TEXT; ast: JunoAST.T) RAISES {Error} =
  VAR err := NEW(ErrVal, msg := msg); BEGIN
    IF ast # NIL THEN
      (* find predecessor; crash if predecessor undefined *)
      WHILE ast.bp # JunoAST.End DO ast := ast.bp END;
    END;
    err.ast := ast;
    RAISE Error(err)
  END Raise;

BEGIN END JunoCompileErr.