From: sof <unknown>
Date: Fri, 14 Mar 1997 01:57:19 +0000 (+0000)
Subject: [project @ 1997-03-14 01:57:19 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~812
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=449d4c61f9a60410d8cea0282f065fb405af1617;p=ghc-hetmet.git

[project @ 1997-03-14 01:57:19 by sof]
Nil closure rename
---

diff --git a/ghc/runtime/storage/SMstacks.lc b/ghc/runtime/storage/SMstacks.lc
index 1ac07b9..cd18c6e 100644
--- a/ghc/runtime/storage/SMstacks.lc
+++ b/ghc/runtime/storage/SMstacks.lc
@@ -35,7 +35,7 @@ initStacks(smInfo *sm)
         STKO_SIZE(MainStkO) = RTSflags.GcFlags.stksSize + STKO_VHS;
         STKO_SpB(MainStkO) = STKO_SuB(MainStkO) = STKO_BSTK_BOT(MainStkO) + BREL(1);
         STKO_SpA(MainStkO) = STKO_SuA(MainStkO) = STKO_ASTK_BOT(MainStkO) + AREL(1);
-        STKO_LINK(MainStkO) = Prelude_Z91Z93_closure;
+        STKO_LINK(MainStkO) = PrelBase_Z91Z93_closure;
     	STKO_RETURN(MainStkO) = NULL;
 
 	ASSERT(sanityChk_StkO(MainStkO));