[m-dev.] diff: fix bug in typeclass error message

[Fergus Henderson]

This fixes a bug that Mark Brown reported recently where the
compiler was issuing an error message with the comma in the
wrong place.

Estimated hours taken: 0.25

compiler/mercury_to_mercury.m:
	Fix a bug in type_list_to_string_2: it was putting the comma
	in the wrong place.

Workspace: /home/mercury0/fjh/mercury
Index: compiler/mercury_to_mercury.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_to_mercury.m,v
retrieving revision 1.161
diff -u -r1.161 mercury_to_mercury.m
--- mercury_to_mercury.m	1999/09/15 16:28:29	1.161
+++ mercury_to_mercury.m	1999/10/15 20:59:47
@@ -1536,7 +1536,7 @@
 type_list_to_string_2(VarSet, [T|Ts], String) :-
 	mercury_type_to_string(VarSet, T, String0),
 	type_list_to_string_2(VarSet, Ts, String1),
-	string__append_list([String0, ", ", String1], String).
+	string__append_list([", ", String0, String1], String).
 
 	% XXX this should probably be a little cleverer, like
 	% mercury_output_term. 

-- 
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.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------