mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 03:13:40 +00:00
26 lines
708 B
Mathematica
26 lines
708 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Mercury ROTD 2/8/2000 reported a type error when typechecking the clauses
|
|
% for foo/2 from intermod_dcg_bug2.opt. The problem was that the DCG arguments
|
|
% introduced for the DCG pred expressions clashed with the DCG arguments for
|
|
% the enclosing clauses. The solution was to add variable numbers to clauses
|
|
% in `.opt' files.
|
|
%
|
|
|
|
:- module intermod_dcg_bug.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module intermod_dcg_bug2.
|
|
|
|
main(!IO) :-
|
|
foo(!IO).
|