mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 13:23:47 +00:00
22 lines
222 B
Mathematica
22 lines
222 B
Mathematica
:- module missing_if.
|
|
|
|
:- interface.
|
|
|
|
:- pred bar(int, int).
|
|
:- mode bar(in, out) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module require.
|
|
|
|
bar(X, Y) :-
|
|
(
|
|
X = 4
|
|
->
|
|
Y = 3
|
|
;
|
|
Y = 9
|
|
;
|
|
error("This is fun.")
|
|
).
|