[project @ 1996-01-10 12:38:57 by partain]

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

diff --git a/ghc/runtime/gum/Pack.lc b/ghc/runtime/gum/Pack.lc
index 412370a..f6f1dfc 100644 (file)
--- a/ghc/runtime/gum/Pack.lc
+++ b/ghc/runtime/gum/Pack.lc
@@ -292,8 +292,12 @@ P_ closure;
 
            if (IS_THUNK(info) && IS_UPDATABLE(info)) {
 #ifdef DEBUG
-               P_ rbh = convertToRBH(closure);
+               P_ rbh =
+#else
+               (void)
 #endif
+               convertToRBH(closure);
+
                ASSERT(rbh != NULL);
            }
        }