[project @ 1997-10-02 19:45:12 by sof]

Cleanup

diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index c2a703d..026e809 100644 (file)
--- a/ghc/runtime/storage/SMmark.lhc
+++ b/ghc/runtime/storage/SMmark.lhc
@@ -1200,7 +1200,7 @@ STGFUN(_PRIn_TSO)
     default:
        /* update the register we just did; save the old mstack */
        mstack = r->rR[oldpos - 2].p;
-       r->rR[oldpos - 2] = Mark;
+       r->rR[oldpos - 2].p = Mark;
        break;
     }