mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
31 lines
895 B
Mathematica
31 lines
895 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% A type_info cell was not constructed statically by var_locn.m.
|
|
% It caused a compiler abort because that differed from the
|
|
% construct_statically hint set by mark_static_terms.m.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module bug457.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred wrapper(pred(io, io)::in(pred(di, uo) is cc_multi),
|
|
io::di, io::uo) is cc_multi.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module exception.
|
|
|
|
wrapper(Pred, !IO) :-
|
|
Closure =
|
|
( pred({}::out, IO0::di, IO::uo) is cc_multi :-
|
|
Pred(IO0, IO)
|
|
),
|
|
try_io(Closure, _TryResult, !IO).
|
|
|
|
%---------------------------------------------------------------------------%
|