[m-rev.] diff: some minor CLPR fixes

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

extras/clpr/dump.m:
	Delete some unnecessary uses of "impure".

extras/clpr/samples/tests.m:
	Use current mode syntax: ">>" instead of "->".

Workspace: /home/jupiter/fjh/ws-jupiter2/mercury
Index: extras/clpr/dump.m
===================================================================
RCS file: /home/mercury1/repository/clpr/dump.m,v
retrieving revision 1.18
diff -u -d -r1.18 dump.m
--- extras/clpr/dump.m	10 Nov 2005 00:52:07 -0000	1.18
+++ extras/clpr/dump.m	13 Nov 2005 23:24:02 -0000
@@ -104,10 +104,10 @@
 	% Unfortunately the standard same_length predicate in list.m
 	% doesn't have this mode...
 	%
-:- impure pred same_len(list(T1)::list_ca, list(T2)::in) is semidet.
+:- pred same_len(list(T1)::list_ca, list(T2)::in) is semidet.
 
 same_len([], []).
-same_len([_|Xs], [_|Ys]) :- impure same_len(Xs, Ys).
+same_len([_|Xs], [_|Ys]) :- same_len(Xs, Ys).
 
 	% unsafe_dump(CfloatList, NameList) writes the constraint
 	% relationships between the cfloats in the list CfloatList to
Index: extras/clpr/samples/tests.m
===================================================================
RCS file: /home/mercury1/repository/clpr/samples/tests.m,v
retrieving revision 1.2
diff -u -d -r1.2 tests.m
--- extras/clpr/samples/tests.m	15 Sep 1997 20:08:57 -0000	1.2
+++ extras/clpr/samples/tests.m	13 Nov 2005 23:27:18 -0000
@@ -89,11 +89,11 @@
 	% test implied mode
 	q(X).
 
-:- mode p(any -> any) is semidet.
+:- mode p(any >> any) is semidet.
 p(_) :- semidet_succeed.
 
-:- mode p2(any -> ground) is failure.
+:- mode p2(any >> ground) is failure.
 p2(_) :- fail.
 
-:- mode q(free -> any) is det.
+:- mode q(free >> any) is det.
 q(X) :- cfloat__init(X).

-- 
Fergus Henderson                    |  "I have always known that the pursuit
                                    |  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
--------------------------------------------------------------------------