mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 01:04:43 +00:00
3ed1a01e3e
Estimated hours taken: 0.5 Branches: main Fix debugger test cases that have been failing due to the recent changes to std_util. tests/debugger/declarative/args.m: Disambiguate a call to semidet_fail. tests/debugger/declarative/condition_bug.m: Update the expected output as the line numbers in term_to_xml have changed. tests/debugger/declarative/lpe_example.m: Import solutions rather than std_util. Calling the (obsolete) version of solutions/2 in std_util results in different event numbers now. tests/debugger/declarative/typed_unify.m: Update the expected output as the line numbers in std_util have changed.
29 lines
560 B
Mathematica
29 lines
560 B
Mathematica
:- module args.
|
|
:- interface.
|
|
:- import_module io.
|
|
:- pred main(io__state::di, io__state::uo) is cc_multi.
|
|
:- implementation.
|
|
:- import_module library_forwarding.
|
|
|
|
main -->
|
|
(
|
|
{ p(1, X, 3, Y, 5) },
|
|
{ library_forwarding.semidet_fail }
|
|
->
|
|
io__write_int(X),
|
|
io__nl,
|
|
io__write_int(Y),
|
|
io__nl
|
|
;
|
|
io__write_string("no.\n")
|
|
).
|
|
|
|
:- pred p(int, int, int, int, int).
|
|
:- mode p(in, out, in, out, in) is nondet.
|
|
|
|
p(A, A + (B * C), B, (A + B) * C, C) :-
|
|
library_forwarding.semidet_succeed.
|
|
p(A, A - B, B, C - B, C) :-
|
|
library_forwarding.semidet_succeed.
|
|
|