diff: avoid spurious warning for sub-modules

[Fergus Henderson]

compiler/prog_io.m:
	Avoid spurious warning messages about source file
	`bar.m' containing module `foo:bar' -- this case
	is supported, and should not trigger a warning.

Index: compiler/prog_io.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io.m,v
retrieving revision 1.172
diff -u -c -6 -r1.172 prog_io.m
/usr/local/bin/diff: conflicting specifications of output style
*** prog_io.m	1998/05/29 08:50:47	1.172
--- prog_io.m	1998/05/30 12:15:22
***************
*** 468,479 ****
--- 468,484 ----
  	    {
  		match_sym_name(StartModuleName, DefaultModuleName)
  	    ->
  		ModuleName = DefaultModuleName,
  		Messages0 = []
  	    ;
+ 		match_sym_name(DefaultModuleName, StartModuleName)
+ 	    ->
+ 		ModuleName = StartModuleName,
+ 		Messages0 = []
+ 	    ;
  	    	prog_out__sym_name_to_string(StartModuleName,
  			StartModuleNameString),
  	    	string__append_list(["source file `", SourceFileName,
  			"' contains module named `", StartModuleNameString,
  			"'"], WrongModuleWarning),
  	        maybe_add_warning(WarnWrong, MaybeFirstTerm, FirstContext,

-- 
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.