% Regression test for higher-order terms exported using 
% inter-module optimization.
% This is also a regression test to check that local modes are put
% in the .opt files.
:- module intermod_lambda2.

:- interface.

:- import_module list.

%-----------------------------------------------------------------------------%

:- pred sol(pred(T), list(T)).
:- mode sol(pred(out) is det, out) is det.

:- implementation.

:- mode in2 :: in.

sol(Generator, List) :-
	Cons = lambda([Elem::in, L0::in, L::out] is det, (
			cons(Elem, L0, L)
		)),
	t(Generator, Cons, [], List).

:- pred cons(T::in, list(T)::in, list(T)::out) is det.
cons(H, T, [H|T]).

:- pred t(pred(T), pred(T,T2,T2), T2, T2).
:- mode t(pred(out) is det, pred(in,in,out) is det, in2, out) is det.

t(_, _, A, A).

%-----------------------------------------------------------------------------%