[m-rev.] diff: hlds_module.m cleanup

[Fergus Henderson]

On 31-Oct-2003, Zoltan Somogyi <zs at cs.mu.OZ.AU> wrote:
> Index: library/list.m
> ===================================================================
> RCS file: /home/mercury/mercury1/repository/mercury/library/list.m,v
> retrieving revision 1.115
> diff -u -b -r1.115 list.m
> --- library/list.m	23 Oct 2003 02:02:26 -0000	1.115
> +++ library/list.m	29 Oct 2003 18:54:39 -0000
> @@ -548,10 +546,8 @@
>  :- mode list__foldl2(pred(in, di, uo, di, uo) is det,
>  		in, di, uo, di, uo) is det.
>  
> -	% list__foldl3(Pred, List, Start1, End1, Start2, End2, Start3, End3)
> -	% calls Pred with each element of List (working left-to-right),
> -	% 3 accumulators (with the initial values of Start1, Start2 and Start3),
> -	% and returns the final values in End1, End2 and End3.
> +	% list__foldl3(Pred, List, !Acc1, !Acc2, !Acc3)
> +	% Does the same job as list__foldl, but with two accumulators.

s/two/three/

> +	% list__foldl4(Pred, List, !Acc1, !Acc2, !Acc3, !Acc4)
> +	% Does the same job as list__foldl, but with two accumulators.

s/two/four/

Otherwise, that looks fine.

-- 
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
--------------------------------------------------------------------------