[m-dev.] trivial diff: update tests/general/arithmetic.*

Mark Anthony BROWN dougl at cs.mu.OZ.AU
Mon Jan 17 16:18:25 AEDT 2000


Estimated hours taken: 0.1

tests/general/arithmetic.m:
tests/general/arithmetic.exp:
	Use `xor` instead of '^' operator.

Index: general/arithmetic.exp
===================================================================
RCS file: /home/mercury1/repository/tests/general/arithmetic.exp,v
retrieving revision 1.1
diff -u -r1.1 arithmetic.exp
--- general/arithmetic.exp	1996/11/04 07:07:56	1.1
+++ general/arithmetic.exp	2000/01/17 05:10:50
@@ -9,5 +9,5 @@
 X >> Y: 0
 X /\ Y: 0
 X \/ Y: 7
-X ^ Y: 7
+X `xor` Y: 7
 \ X: -4
Index: general/arithmetic.m
===================================================================
RCS file: /home/mercury1/repository/tests/general/arithmetic.m,v
retrieving revision 1.2
diff -u -r1.2 arithmetic.m
--- general/arithmetic.m	1995/08/17 05:32:24	1.2
+++ general/arithmetic.m	2000/01/17 05:09:02
@@ -27,7 +27,7 @@
 		RightShift is X >> Y,
 		BitAnd is X /\ Y,
 		BitOr is X \/ Y,
-		BitXor is X ^ Y,
+		BitXor is X `xor` Y,
 		BitNeg is \ X
 	},
 	write_message("X: ", X),
@@ -41,7 +41,7 @@
 	write_message("X >> Y: ", RightShift),
 	write_message("X /\\ Y: ", BitAnd),
 	write_message("X \\/ Y: ", BitOr),
-	write_message("X ^ Y: ", BitXor),
+	write_message("X `xor` Y: ", BitXor),
 	write_message("\\ X: ", BitNeg).
 
 :- pred write_message(string, int, io__state, io__state).
-- 
Mark Brown, PhD student            )O+  |  "Another of Fortran's breakthroughs
(m.brown at cs.mu.oz.au)                   |  was the GOTO statement, which was...
Dept. of Computer Science and Software  |  uniquely simple and understandable"
Engineering, University of Melbourne    |              -- IEEE, 1994
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------



More information about the developers mailing list