mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 10:53:40 +00:00
32 lines
923 B
Mathematica
32 lines
923 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This is a regression test.
|
|
%
|
|
% Compiling this program with --intermod-opt used to yield:
|
|
%
|
|
% xml_read.opt:013: Syntax error at token 'event': unexpected token
|
|
% xml_read.opt:013: at start of (sub)term.
|
|
% xml_read.opt:018: In clause for function `get_value'/1:
|
|
% xml_read.opt:018: in function result term of clause head:
|
|
% xml_read.opt:018: error: undefined symbol `xml_read.event'/1.
|
|
%
|
|
% This was caused by the direct_arg clause for the type xml_read_or_eof
|
|
% not escaping the operator "event".
|
|
|
|
:- module xml_event_read.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module xml_event_read_helper.
|
|
|
|
main(!IO) :-
|
|
V = get_value("hello"),
|
|
io.print_line(V, !IO).
|