mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 22:34:26 +00:00
b80ac18bbe
Estimated hours taken: 0.25 tests/valid: I added the loop_in_disj.m test to the Mmake file, since we now pass it. Also, the code in the misleadingly-named same_length_3.m was pretty much the same as the code in loop_in_disj.m, so I moved the code from same_length_3.m into loop_in_disj.m and removed same_length_3.m.
23 lines
221 B
Mathematica
23 lines
221 B
Mathematica
:- module loop_in_disj.
|
|
:- interface.
|
|
|
|
:- pred p(int::out) is det.
|
|
|
|
:- pred q(int::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- pred loop is erroneous.
|
|
loop :- loop.
|
|
|
|
p(X) :-
|
|
loop
|
|
;
|
|
X = 42.
|
|
|
|
q(X) :-
|
|
loop,
|
|
X = 41
|
|
;
|
|
X = 42.
|