blob: d07380295b520c6f73646bd34852aa1df4471846 (
plain) (
tree)
|
|
%%%-------------------------------------------------------------------
%%% File : try1.erl
%%% Author : <[email protected]>
%%% Description :
%%%
%%% Created : 23 Aug 2005 by <[email protected]>
%%%-------------------------------------------------------------------
-module(try1).
-export([t/1]).
t(X) ->
case wierd_is_bool(X) of
true -> ok;
false -> ok
end.
wierd_is_bool(X) ->
try bool(X) of
Y -> Y
catch
_:_ -> false
end.
bool(true) -> true;
bool(false) -> true.
|