[project @ 1997-11-10 13:18:59 by simonm]

oops - xor# is dyadic, not monadic.

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index f9818b0..cf63b34 100644 (file)
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -793,8 +793,8 @@ A @Word#@ is an unsigned @Int#@.
 \begin{code}
 primOpInfo AndOp    = Dyadic  SLIT("and#")     wordPrimTy
 primOpInfo OrOp            = Dyadic  SLIT("or#")       wordPrimTy
+primOpInfo XorOp    = Dyadic  SLIT("xor#")     wordPrimTy
 primOpInfo NotOp    = Monadic SLIT("not#")     wordPrimTy
-primOpInfo XorOp    = Monadic SLIT("xor#")     wordPrimTy
 
 primOpInfo SllOp
   = PrimResult SLIT("shiftL#")  [] [wordPrimTy, intPrimTy] wordPrimTyCon WordRep []