[project @ 2000-06-19 12:09:22 by simonmar]

[ghc-hetmet.git] / ghc / rts / Prelude.h

diff --git a/ghc/rts/Prelude.h b/ghc/rts/Prelude.h
index 9a64fb2..db04225 100644 (file)
--- a/ghc/rts/Prelude.h
+++ b/ghc/rts/Prelude.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Prelude.h,v 1.9 2000/05/22 13:09:29 simonmar Exp $
+ * $Id: Prelude.h,v 1.11 2000/06/15 13:23:52 daan Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -109,7 +109,7 @@ extern const StgInfoTable *ind_StablePtr_con_info;
 #define True_closure           ind_True_closure
 #define False_closure          ind_False_closure
 #define unpackCString_closure  ind_unpackCString_closure
-#define runFinalizerBatch_closure ind_runFinalizerBatch_closure;
+#define runFinalizerBatch_closure ind_runFinalizerBatch_closure
 
 #define stackOverflow_closure  ind_stackOverflow_closure
 #define heapOverflow_closure   ind_heapOverflow_closure
@@ -134,6 +134,14 @@ extern const StgInfoTable *ind_StablePtr_con_info;
 #define StablePtr_static_info  ind_StablePtr_static_info
 #define StablePtr_con_info     ind_StablePtr_con_info
 
+#ifdef XMLAMBDA
+/* The Inj constructor. Not present in combined mode or compiled code. */
+
+extern const StgInfoTable *ind_Inj_con_info;
+#define Inj_con_info           ind_Inj_con_info
+
+#endif
+
 #endif
 
 void fixupRTStoPreludeRefs( void*(*)(char*) );