[project @ 1996-01-22 18:37:39 by partain]

[ghc-hetmet.git] / ghc / runtime / c-as-asm / HpOverflow.lc

diff --git a/ghc/runtime/c-as-asm/HpOverflow.lc b/ghc/runtime/c-as-asm/HpOverflow.lc
index a9d559f..b1cf98c 100644 (file)
--- a/ghc/runtime/c-as-asm/HpOverflow.lc
+++ b/ghc/runtime/c-as-asm/HpOverflow.lc
@@ -670,7 +670,7 @@ BlackHoleUpdateStack(STG_NO_ARGS)
        PtrToUpdateFrame = GRAB_SuB(PtrToUpdateFrame);
     }
 }
-#endif /* CONCURRENT */
+#endif /* !CONCURRENT */
 \end{code}