mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 03:13:40 +00:00
26 lines
443 B
Mathematica
26 lines
443 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- 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.")
|
|
).
|