mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 12:53:47 +00:00
5294c35b1f
Estimated hours taken: 0.1
compiler/intermod.m
Use the declared argmodes or procedures when gathering modes to put
into .opt files, since these are the modes that are written to the
.opt file.
tests/valid/intermod_lambda.m
tests/valid/intermod_lambda2.m
Updated these to act as a regression test.
36 lines
901 B
Mathematica
36 lines
901 B
Mathematica
% 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.
|
|
:- 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).
|
|
|
|
%-----------------------------------------------------------------------------%
|