mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-13 04:44:39 +00:00
47cbf625bf
tests/hard_coded/export_test2.m:
tests/invalid/foreign_type_line_number.m:
tests/valid/assoc_list_bug.m:
tests/valid/determinism.m:
tests/valid/mode_merge_insts.m
tests/valid/unify_inst_bug.m:
As above, mainly replacing bits of syntax that are no longer
supported.
tests/hard_coded/Mmakefile:
Delete references to the IL backend.
20 lines
594 B
Mathematica
20 lines
594 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module assoc_list_bug.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module pair.
|
|
|
|
:- pred assoc_list_member(pair(K, V), list(pair(K, V))).
|
|
:- mode assoc_list_member(bound(free - ground) >> ground, in) is semidet.
|
|
:- mode assoc_list_member(bound(free - free) >> ground, in) is nondet.
|
|
|
|
:- implementation.
|
|
|
|
assoc_list_member(X, [X | _]).
|
|
assoc_list_member(X, [_ | Xs]) :-
|
|
assoc_list_member(X, Xs).
|