for review: fact_table.m

[Thomas Charles CONWAY]

Hi

can someone please review the following change?
-- 
ZZ:wq!
^X^C
Thomas Conway               				      conway at cs.mu.oz.au
AD DEUM ET VINUM	  			      Every sword has two edges.

compiler/fact_table.m:
	Make the fact table data structures `const'.

cvs diff: Diffing .
Index: fact_table.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/fact_table.m,v
retrieving revision 1.7
diff -u -r1.7 fact_table.m
--- fact_table.m	1997/05/21 02:13:22	1.7
+++ fact_table.m	1997/05/28 22:40:15
@@ -1272,7 +1272,7 @@
 :- mode write_new_data_array(in, in, in, di, uo) is det.
 
 write_new_data_array(OutputStream, StructName, FactNum) -->
-	io__format(OutputStream, "struct %s_struct %s%d[] = {\n", 
+	io__format(OutputStream, "const struct %s_struct %s%d[] = {\n", 
 		[s(StructName), s(StructName), i(FactNum)]).
 
 	% Write out the closing brace of an array.
@@ -3452,3 +3452,4 @@
 			s(ExtraCodeLabel)
 		],
 		ExtraCode).
+
cvs diff: Diffing notes