IMPLEMENTATION MODULE M2EXCEPTION;
(* Enquiries over the runtime language-exception state. *)

IMPORT SysExceptions;

PROCEDURE M2Exception () : M2Exceptions;
BEGIN
  IF SysExceptions.IsLanguage() THEN
    RETURN VAL(M2Exceptions, SysExceptions.Number())
  ELSE
    SysExceptions.RaiseLang(ORD(exException));
    RETURN exException
  END
END M2Exception;

PROCEDURE IsM2Exception () : BOOLEAN;
BEGIN
  RETURN SysExceptions.IsLanguage()
END IsM2Exception;

END M2EXCEPTION.