[project @ 2000-02-01 16:02:12 by sewardj]

primOpStrictness(CatchOp): catch# isn't strict in its first arg.

ghc/compiler/prelude/PrimOp.lhs

@@ -933,7 +933,7 @@ primOpStrictness WriteMutVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
 primOpStrictness PutMVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
-primOpStrictness CatchOp	  = ([wwStrict, wwLazy, wwPrim], False)
+primOpStrictness CatchOp	  = ([wwLazy, wwLazy, wwPrim], False)
 primOpStrictness RaiseOp	  = ([wwLazy], True)	-- NB: True => result is bottom
 primOpStrictness BlockAsyncExceptionsOp    = ([wwLazy], False)
 primOpStrictness UnblockAsyncExceptionsOp  = ([wwLazy], False)