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

[ghc-hetmet.git] / ghc / runtime / storage / SMmark.lhc

diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index 72ea1d3..b1a5aa2 100644 (file)
--- a/ghc/runtime/storage/SMmark.lhc
+++ b/ghc/runtime/storage/SMmark.lhc
@@ -1738,7 +1738,6 @@ STGFUN(_PRMarking_MarkNextGA)
 }
 
 #else
-#if 1 /* !defined(CONCURRENT) */ /* HWL */
 STGFUN(_PRMarking_MarkNextAStack)
 {
     FUNBEGIN;
@@ -1771,7 +1770,6 @@ STGFUN(_PRMarking_MarkNextBStack)
     JUMP_MARK;
     FUNEND;
 }
-#endif /* !CONCURRENT */
 #endif /* PAR */
 \end{code}