From: andy <unknown>
Date: Tue, 7 Mar 2000 06:24:23 +0000 (+0000)
Subject: [project @ 2000-03-07 06:24:23 by andy]
X-Git-Tag: Approximately_9120_patches~5054
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3592a8ba122eaba900698a5ce5808156ed7b268d;p=ghc-hetmet.git

[project @ 2000-03-07 06:24:23 by andy]
Adding link for monadic bind. This was causing the monad fail inside
pattern matching (use inside the XML lib, for example) to fail.
---

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index aabe2596..956ff99 100644
--- a/ghc/interpreter/link.c
+++ b/ghc/interpreter/link.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.45 $
- * $Date: 2000/02/29 12:27:35 $
+ * $Revision: 1.46 $
+ * $Date: 2000/03/07 06:24:23 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -411,6 +411,7 @@ Void linkPreludeCM(void) {              /* Hook to cfuns and mfuns in      */
         nameFromInteger  = linkName("fromInteger");
         nameReturn       = linkName("return");
         nameBind         = linkName(">>=");
+	nameMFail        = linkName("fail");
         nameLe           = linkName("<=");
         nameGt           = linkName(">");
         nameShowsPrec    = linkName("showsPrec");