X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.c;h=d411c4110142f4a8550379ab10ad32c50a5c8d2d;hb=e0ff87e4c56e8caf94b95e927ebd743ad3995a31;hp=d3400d791d0829892484339d9937906e7e47f6ed;hpb=02620e7c705ac946db43e61988ca3781af3f2447;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index d3400d7..d411c41 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -1017,6 +1017,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception,
 	    // Not stop_at_atomically... fall through and abort the
 	    // transaction.
 	    
+	case CATCH_STM_FRAME:
 	case CATCH_RETRY_FRAME:
 	    // IF we find an ATOMICALLY_FRAME then we abort the
 	    // current transaction and propagate the exception.  In