[project @ 1996-07-26 20:58:52 by partain]

[ghc-hetmet.git] / ghc / includes / CostCentre.lh

diff --git a/ghc/includes/CostCentre.lh b/ghc/includes/CostCentre.lh
index a633907..3993b29 100644 (file)
--- a/ghc/includes/CostCentre.lh
+++ b/ghc/includes/CostCentre.lh
@@ -156,7 +156,7 @@ CC_EXTERN(CC_DONTZuCARE);   /* placeholder only */
 CC_EXTERN(CC_CAFs);            /* prelude cost centre (CAFs  only) */
 CC_EXTERN(CC_DICTs);           /* prelude cost centre (DICTs only) */
 
-# define IS_CAF_OR_DICT_OD_SUB_CC(cc) \
+# define IS_CAF_OR_DICT_OR_SUB_CC(cc) \
     ((cc)->is_subsumed & ' ')  /* tests for lower case character */
 
 \end{code}