[project @ 1997-03-14 04:55:44 by sof]

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

diff --git a/ghc/runtime/main/StgOverflow.lc b/ghc/runtime/main/StgOverflow.lc
index a5f4e61..e792e0a 100644 (file)
--- a/ghc/runtime/main/StgOverflow.lc
+++ b/ghc/runtime/main/StgOverflow.lc
@@ -158,7 +158,7 @@ P_ frame;
                    /* Urgh.  Two queues.  Merge them. */
                    P_ tso = (P_) BQ_ENTRIES(updatee_keep);
 
-                   while (TSO_LINK(tso) != Prelude_Z91Z93_closure)
+                   while (TSO_LINK(tso) != PrelBase_Z91Z93_closure)
                        tso = TSO_LINK(tso);
 
                    TSO_LINK(tso) = (P_) BQ_ENTRIES(updatee_bypass);