[project @ 2005-07-26 14:38:42 by simonmar]

oops, fix heavy-handed C-k in prev commit

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index cce7f3f..47e4971 100644 (file)
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1981,6 +1981,7 @@ loop:
            // q is still BLACKHOLE'd.
            thunk_selector_depth++;
            val = evacuate(p);
+           thunk_selector_depth--;
 
            // Update the THUNK_SELECTOR with an indirection to the
            // EVACUATED closure now at p.  Why do this rather than