mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
24 lines
689 B
Mathematica
24 lines
689 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This is a regression test. Up until May 2001, typeclass methods
|
|
% from transitively imported modules (for which the `.int2' file is read)
|
|
% could be used if each reference was fully module qualified.
|
|
|
|
:- module transitive_import_class.
|
|
|
|
:- interface.
|
|
|
|
:- import_module int.
|
|
|
|
:- func semidet_id(int) = int is semidet.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module transitive_import_class2.
|
|
|
|
semidet_id(X) =
|
|
transitive_import_class3.to_int(
|
|
transitive_import_class3.from_int(X) `with_type` int).
|