X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FForeignCall.c;h=66e547713ae5363300854bb8aba2420de8c53988;hb=9f0b4b7582b3e98ea80c20a142e1b97825c92a99;hp=080742cb2ba554ab4edf562196f7b1ac4c3d9897;hpb=e5dfcd65b1d6733d9140c0458335f5d0a57a10e4;p=ghc-hetmet.git

diff --git a/ghc/rts/ForeignCall.c b/ghc/rts/ForeignCall.c
index 080742c..66e5477 100644
--- a/ghc/rts/ForeignCall.c
+++ b/ghc/rts/ForeignCall.c
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: ForeignCall.c,v 1.15 2000/04/27 16:35:30 sewardj Exp $
+ * $Id: ForeignCall.c,v 1.16 2000/05/12 11:59:39 sewardj Exp $
  *
  * (c) The GHC Team 1994-1999.
  *
@@ -469,7 +469,7 @@ unpackArgsAndCallHaskell_x86_nocallconv_wrk ( StgStablePtr stableptr,
       sstat = rts_evalIO ( node, &nodeOut );
    } else {
       node = rts_apply ( 
-                getHugs_BCO_cptr_for("primRunST"), 
+                getHugs_BCO_cptr_for("runST"), 
                 node );
       sstat = rts_eval ( node, &nodeOut );
    }