[m-rev.] diff: remove comments from .opt files

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

compiler/hlds_out.m:
	Don't write the "Language of implementation:" comment for
	clauses written in Mercury. The comments were just unnecessary
	clutter in HLDS dumps, and they definitely should not appear in
	`.opt' files.

Index: hlds_out.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/hlds_out.m,v
retrieving revision 1.266
diff -u -u -r1.266 hlds_out.m
--- hlds_out.m	2001/07/31 14:29:33	1.266
+++ hlds_out.m	2001/08/03 08:21:40
@@ -964,9 +964,14 @@
 	;
 		[]
 	),
-	io__write_string("% Language of implementation: "),
-	io__write(Lang),
-	io__nl,
+	(
+		{ Lang = mercury }
+	;
+		{ Lang = foreign_language(ForeignLang) },
+		io__write_string("% Language of implementation: "),
+		io__write(ForeignLang),
+		io__nl
+	),
 	{ module_info_pred_info(ModuleInfo, PredId, PredInfo) },
 	{ pred_info_procids(PredInfo, ProcIds) },
 	( { Modes = [] ; Modes = ProcIds } ->
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------