trivial diff: module_qual.m: rename pred

[Fergus Henderson]

Estimated hours taken: 0.1

compiler/module_qual.m:
	Rename a predicate which had a misleading predicate name.

cvs diff  compiler/module_qual.m
Index: compiler/module_qual.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/module_qual.m,v
retrieving revision 1.32
diff -u -r1.32 module_qual.m
--- module_qual.m	1998/03/04 19:47:38	1.32
+++ module_qual.m	1998/03/06 08:55:42
@@ -849,7 +849,7 @@
 		{ Id = Id0 },
 		( { mq_info_get_report_error_flag(Info0, yes) } ->
 			{ mq_info_get_error_context(Info0, ErrorContext) },
-			report_multiply_defined(ErrorContext, Id0, TypeOfId,
+			report_ambiguous_match(ErrorContext, Id0, TypeOfId,
 						Modules),
 			{ mq_info_set_error_flag(Info0, TypeOfId, Info1) },
 			{ mq_info_incr_errors(Info1, Info) }
@@ -905,10 +905,10 @@
 
 	% Report an error where a type, inst or mode had multiple possible
 	% matches.
-:- pred report_multiply_defined(error_context::in, id::in, id_type::in,
+:- pred report_ambiguous_match(error_context::in, id::in, id_type::in,
 		list(module_name)::in, io__state::di, io__state::uo) is det.
 
-report_multiply_defined(ErrorContext - Context, Id, IdType, Modules) -->
+report_ambiguous_match(ErrorContext - Context, Id, IdType, Modules) -->
 	io__set_exit_status(1),
 	prog_out__write_context(Context),
 	io__write_string("In "),

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.