propagate the result of atomically properly (fixes #3049)

[ghc-hetmet.git] / includes / Closures.h

diff --git a/includes/Closures.h b/includes/Closures.h
index ef5fa4e..eb5d1ed 100644 (file)
--- a/includes/Closures.h
+++ b/includes/Closures.h
@@ -398,6 +398,7 @@ typedef struct {
   StgHeader   header;
   StgClosure *code;
   StgTVarWatchQueue *next_invariant_to_check;
+  StgClosure *result;
 } StgAtomicallyFrame;
 
 typedef struct {