[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / runtime / storage / SM2s.lc

diff --git a/ghc/runtime/storage/SM2s.lc b/ghc/runtime/storage/SM2s.lc
index 7ad2e97..953d8f3 100644 (file)
--- a/ghc/runtime/storage/SM2s.lc
+++ b/ghc/runtime/storage/SM2s.lc
@@ -144,10 +144,10 @@ collectHeap(reqsize, sm, do_full_collection)
 #if defined(GRAN)
     EvacuateEvents();
 #endif
-#if defined(CONCURRENT) /* && !defined(GRAN) */
+#if defined(CONCURRENT)
     EvacuateSparks();
 #endif
-#if !defined(PAR) && !defined(GRAN)
+#if !defined(PAR) /* && !defined(GRAN) */
     EvacuateAStack( MAIN_SpA, stackInfo.botA );
     EvacuateBStack( MAIN_SuB, stackInfo.botB, &bstk_roots );
 #endif /* !PAR */