path: root/lib/dialyzer/test/small_SUITE_data/src/try1.erl

%%%-------------------------------------------------------------------
%%% 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.