[m-rev.] trivial diff: fix MC++ mode for string__{append,join}_list

[Fergus Henderson]

Estimated hours taken: 0.1
Branches: main

library/string.m:
	Fix a bug in Zoltan's previous change: update the mode of
	string__append_list and string__join_list in the `pragma
	foreign_proc("MC++", ...)' definitions for those predicates,
	to match the mode declaration.

Workspace: /home/venus/fjh/ws-venus4/mercury
Index: library/string.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/string.m,v
retrieving revision 1.152
diff -u -d -r1.152 string.m
--- library/string.m	10 Aug 2001 08:29:36 -0000	1.152
+++ library/string.m	13 Aug 2001 01:11:51 -0000
@@ -1020,13 +1020,13 @@
 }").
 
 :- pragma foreign_proc("MC++",
-		string__append_list(_Strs::in) = (_Str::out),
+		string__append_list(_Strs::in) = (_Str::uo),
 		[will_not_call_mercury, thread_safe], "{
 	mercury::runtime::Errors::SORRY(""c code for this function"");
 }").
 
 :- pragma foreign_proc("MC++",
-		string__join_list(_Sep::in, _Strs::in) = (_Str::out),
+		string__join_list(_Sep::in, _Strs::in) = (_Str::uo),
 		[will_not_call_mercury, thread_safe], "{
 	mercury::runtime::Errors::SORRY(""c code for this function"");
 }").

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------