2.3.oz

   1 /****************************************************************************
   2 Ejercicio: 2.3
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 15:06:39 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12     fun {Muero B}
  13         if B then {System.show "Esto NO debería imprimirse"} end
  14         % Acá lanza la excepción, porque el if/else debe retornar un valor
  15         %{System.show "Esto NO debería imprimirse"}
  16     end
  17     proc {NoMuero B}
  18         if B then {System.show "Esto NO debería imprimirse"} end
  19         % Acá no hay problema, porque no se retorna un valor
  20         %{System.show "Esto debería imprimirse"}
  21     end
  22     {NoMuero   false}
  23     X = {Muero false}
  24     {Application.exit 0}
  25 end
  26
  27 % vim: set et sw=4 sts=4 filetype=oz :