exception.m3

  TRY
    wr := IO.OpenWrite("output.txt");
  EXCEPT
  | Wr.Failure => 
    SIO.PutText("Failed opening file to write!\n");
    TRY
      Wr.Close(wr);
    EXCEPT Wr.Failure => SIO.PutText("Failed closing file!\n");
    | Thread.Alerted => SIO.PutText("Thread.Alerted!\n");
    END;
  | Thread.Alerted => 
    SIO.PutText("Thread.Alerted!\n");
    TRY
      Wr.Close(wr);
    EXCEPT Wr.Failure => SIO.PutText("Failed closing file!\n");
    | Thread.Alerted => SIO.PutText("Thread.Alerted!\n");
    END;
  ELSE
    SIO.PutText("ELSE\n");
  END;