From 403d3f1de8fd1387ffee2e3a8b2fd7bb9f15d0c7 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Oct 2002 13:07:41 +0000
Subject: [PATCH] [project @ 2002-10-25 13:07:41 by sof] Only interested in a
 subset when used in w/ Hugs

---
 include/HsBase.h |   15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/include/HsBase.h b/include/HsBase.h
index 0fcc616..d5155fb 100644
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: HsBase.h,v 1.17 2002/10/08 08:03:02 wolfgang Exp $
+ * $Id: HsBase.h,v 1.18 2002/10/25 13:07:41 sof Exp $
  *
  * (c) The University of Glasgow 2001-2002
  *
@@ -7,8 +7,8 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef HSCORE_H
-#define HSCORE_H
+#ifndef __HSBASE_H__
+#define __HSBASE_H__
 
 #include "config.h"
 #include "HsFFI.h"
@@ -110,6 +110,9 @@
 /* in ghc_errno.c */
 int *ghcErrno(void);
 
+#if !defined(__HUGS__)
+/* The rest isn't needed by Hugs, so we break off here. */
+
 /* in system.c */
 HsInt systemCmd(HsAddr cmd);
 
@@ -637,7 +640,9 @@ INLINE int __hsposix_SIGXFSZ()   { return SIGXFSZ; }
 INLINE int __hsposix_SIG_BLOCK()   { return SIG_BLOCK; }
 INLINE int __hsposix_SIG_UNBLOCK() { return SIG_SETMASK; }
 INLINE int __hsposix_SIG_SETMASK() { return SIG_UNBLOCK; }
-#endif // mingw32_TARGET_OS
+#endif /* mingw32_TARGET_OS */
 
-#endif
+#endif /* !__HUGS__ */
+
+#endif /* __HSBASE_H__ */
 
-- 
1.7.10.4