[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / runtime / gum / Unpack.lc

diff --git a/ghc/runtime/gum/Unpack.lc b/ghc/runtime/gum/Unpack.lc
index f6877df..2df6741 100644 (file)
--- a/ghc/runtime/gum/Unpack.lc
+++ b/ghc/runtime/gum/Unpack.lc
@@ -56,7 +56,7 @@ CommonUp(P_ src, P_ dst)
        bqe = (P_) GEN_RBH_BQ(src);
        break;
     case INFO_FETCHME_TYPE:
-       bqe = Prelude_Z91Z93_closure;
+       bqe = PrelBase_Z91Z93_closure;
        break;
     case INFO_FMBQ_TYPE:
        bqe = (P_) FMBQ_ENTRIES(src);