[m-rev.] trivial diff: fix output pragma foreign_type bug

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.25
Branches: main

Fix a bug where pragma foreign_type's were being output incorrectly.

compiler/mercury_to_mercury.m:
    Don't output an extra ','.

Index: compiler/mercury_to_mercury.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_to_mercury.m,v
retrieving revision 1.213
diff -u -r1.213 mercury_to_mercury.m
--- compiler/mercury_to_mercury.m	7 May 2002 11:02:59 -0000	1.213
+++ compiler/mercury_to_mercury.m	8 May 2002 13:55:09 -0000
@@ -518,7 +518,6 @@
 			io__write_string("c, ")
 		),
 		mercury_output_sym_name(MercuryTypeSymName),
-		io__write_string(", "),
 		io__write_string(", \""),
 		{ ForeignType = il(il(RefOrVal,
 				ForeignLocStr, ForeignTypeName)),

--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------