[m-rev.] trivial diff: fix compilation failure

[Mark Brown]

Estimated hours taken: 0
Branches: main

compiler/prog_io.m:
	Fix a buglet that was stopping the compiler from being compiled.

Index: compiler/prog_io.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io.m,v
retrieving revision 1.239
diff -u -r1.239 prog_io.m
--- compiler/prog_io.m	18 Mar 2005 01:02:01 -0000	1.239
+++ compiler/prog_io.m	18 Mar 2005 05:54:24 -0000
@@ -2073,12 +2073,12 @@
 			RepresentationIsResult = ok(no)
 		->
 			Result = error("solver type definitions must have a" ++
-				"`representation' attribute")
+				"`representation' attribute", WhereTerm)
 		;
 			InitialisationIsResult = ok(no)
 		->
 			Result = error("solver type definitions must have an" ++
-				"`initialisation' attribute")
+				"`initialisation' attribute", WhereTerm)
 		;
 			error("prog_io__make_maybe_where_details: " ++
 				"shouldn't have reached this point! (1)")
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------