[m-rev.] trivial diff: fix mercury_to_mercury output

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

compiler/mercury_to_mercury.m:
	Add a missing comma in the output for `:- pragma foreign_code'
	declarations.	

Index: mercury_to_mercury.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_to_mercury.m,v
retrieving revision 1.191
diff -u -u -r1.191 mercury_to_mercury.m
--- mercury_to_mercury.m	2001/08/10 08:29:27	1.191
+++ mercury_to_mercury.m	2001/08/29 18:09:54
@@ -2519,6 +2519,7 @@
 mercury_output_pragma_foreign_body_code(Lang, ForeignCodeString) -->
 	io__write_string(":- pragma foreign_code("),
 	mercury_format_foreign_language_string(Lang),
+	io__write_string(", "),
 	mercury_format_foreign_code_string(ForeignCodeString),
 	io__write_string(").\n").
 
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------