juno-compiler/src/JunoCompileErr.i3

 Copyright (C) 1993, Digital Equipment Corporation                         
 All rights reserved.                                                      
 See the file COPYRIGHT for a full description.                            
                                                                           
 Last modified on Tue May 10 09:06:23 PDT 1994 by heydon                   


INTERFACE JunoCompileErr;

IMPORT JunoAST;

TYPE
  ErrVal = OBJECT
    msg: TEXT;
    ast: JunoAST.T;
  END;

EXCEPTION Error(ErrVal);

 Procedures may raise the exception Error to indicate that a compilation
   error has occurred. The ErrVal contains the text of the error message and
   the bad AST node of the original AST. 


PROCEDURE Raise(msg: TEXT; ast: JunoAST.T) RAISES {Error};

 Raise Error with an error value whose message is msg and whose error
   AST is the earliest AST reachable from ast by following back pointers. 

END JunoCompileErr.