[project @ 1997-10-13 16:12:54 by simonm]

[ghc-hetmet.git] / ghc / runtime / main / Threads.lc

diff --git a/ghc/runtime/main/Threads.lc b/ghc/runtime/main/Threads.lc
index d3abc81..51a48fb 100644 (file)
--- a/ghc/runtime/main/Threads.lc
+++ b/ghc/runtime/main/Threads.lc
@@ -2216,7 +2216,7 @@ processor:
 \begin{code}
 EXTDATA_RO(StkO_info);
 EXTDATA_RO(TSO_info);
-EXTDATA_RO(WorldStateToken_closure);
+EXTDATA_RO(realWorldZh_closure);
 
 EXTFUN(EnterNodeCode);
 UNVEC(EXTFUN(stopThreadDirectReturn);,EXTDATA(vtbl_stopStgWorld);)
@@ -2565,7 +2565,7 @@ W_ type;
 
     if (type == T_MAIN) {
         STKO_SpA(stko) -= AREL(1);
-        *STKO_SpA(stko) = (P_) WorldStateToken_closure;
+        *STKO_SpA(stko) = (P_) realWorldZh_closure;
     }
 
     SAVE_Ret = (StgRetAddr) UNVEC(stopThreadDirectReturn,vtbl_stopStgWorld);