/****************************************************************************
Ejercicio: 2.3
Alumno: Leandro Lucarella
Fecha: mié jul 27 15:06:39 ART 2005
****************************************************************************/

functor
import
    Application
    System
define
    fun {Muero B}
        if B then {System.show "Esto NO debería imprimirse"} end
        % Acá lanza la excepción, porque el if/else debe retornar un valor
        %{System.show "Esto NO debería imprimirse"}
    end
    proc {NoMuero B}
        if B then {System.show "Esto NO debería imprimirse"} end
        % Acá no hay problema, porque no se retorna un valor
        %{System.show "Esto debería imprimirse"}
    end
    {NoMuero   false}
    X = {Muero false}
    {Application.exit 0}
end

% vim: set et sw=4 sts=4 filetype=oz :