[project @ 2005-04-25 13:17:59 by simonmar]

stg_raise: we should by using StgThunk_payload(), not StgClosure_payload()

ghc/rts/Exception.cmm

@@ -311,7 +311,7 @@ catchzh_fast
 
 INFO_TABLE(stg_raise,1,0,THUNK,"raise","raise")
 {
-  R1 = StgClosure_payload(R1,0);
+  R1 = StgThunk_payload(R1,0);
   jump raisezh_fast;
 }