Use message-passing to implement throwTo in the RTS

[ghc-hetmet.git] / rts / FrontPanel.c

diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c
index 163a7c0..ebba405 100644 (file)
--- a/rts/FrontPanel.c
+++ b/rts/FrontPanel.c
@@ -697,7 +697,7 @@ residencyCensus( void )
                        break;
                        
                    case WEAK:
-                   case STABLE_NAME:
+                   case PRIM:
                    case MVAR:
                    case MUT_VAR:
 /*                 case MUT_CONS: FIXME: case does not exist */