X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Fstg.c;fp=ghc%2Finterpreter%2Fstg.c;h=f4267997cf6c8e10b999198937d85648a80cebbe;hb=b3c8ae4e104c93354738d3992fcf0e60e9646490;hp=742fe27052c2349ce1dd5624404337262f540b5b;hpb=13d14c5109d0a3e80146507885882170b0153aa0;p=ghc-hetmet.git

diff --git a/ghc/interpreter/stg.c b/ghc/interpreter/stg.c
index 742fe27..f426799 100644
--- a/ghc/interpreter/stg.c
+++ b/ghc/interpreter/stg.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: stg.c,v $
- * $Revision: 1.8 $
- * $Date: 1999/11/12 17:32:45 $
+ * $Revision: 1.9 $
+ * $Date: 1999/11/29 18:59:32 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -449,7 +449,7 @@ Void putStgExpr( StgExpr e )                        /* pretty print expr */
     case STGPRIM: 
         {
             Cell op = stgPrimOp(e);
-            unlexVar(name(op).text);
+            unlexVarStr(asmGetPrimopName(name(op).primop));
             putStgAtoms(stgPrimArgs(e));
             break;
         }