[project @ 2002-12-05 23:49:43 by mthomas]

[ghc-hetmet.git] / ghc / rts / parallel / Parallel.c

diff --git a/ghc/rts/parallel/Parallel.c b/ghc/rts/parallel/Parallel.c
index 8dd7f88..97cdf0e 100644 (file)
--- a/ghc/rts/parallel/Parallel.c
+++ b/ghc/rts/parallel/Parallel.c
@@ -1002,7 +1002,7 @@ get_closure_info(StgClosure* node, nat *size, nat *ptrs, nat *nonptrs,
     strcpy(info_hdr_ty, "REMOTE_REF");
 #endif
     return info; 
-#endif DIST
+#endif /* DIST */
     
   case FETCH_ME_BQ:
     *size = sizeofW(StgFetchMeBlockingQueue);