1
%%%-------------------------------------------------------------------
3
%%% Author : Tobias Lindahl <tobiasl@csd.uu.se>
4
%%% Description : Exposed two bugs in the analysis;
5
%%% one supressed warning and one crash.
7
%%% Created : 13 Nov 2006 by Tobias Lindahl <tobiasl@csd.uu.se>
8
%%%-------------------------------------------------------------------
11
-export([t1/2, t2/2, t3/2, bar/2]).
13
t1(List = [_|_], X) ->
14
lists:mapfoldl(fun foo/2, X, List).
16
t2(List = [_|_], X) ->
17
lists:mapfoldl(fun bar/2, X, List).
19
t3(List = [_|_], X) ->
20
lists:mapfoldl(fun baz/1, X, List).