[project @ 2000-01-10 16:27:03 by sewardj]

nameRunIO --> nameRunIO_toplevel

ghc/interpreter/hugs.c

@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.33 $
- * $Date: 2000/01/07 16:56:47 $
+ * $Revision: 1.34 $
+ * $Date: 2000/01/10 16:27:03 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -1406,7 +1406,7 @@ static Void local evaluator() {        /* evaluate expr and print value    */
 
 #if 1
     if (isProgType(ks,bd)) {
-        inputExpr = ap(nameRunIO,inputExpr);
+        inputExpr = ap(nameRunIO_toplevel,inputExpr);
         evalExp();
         Putchar('\n');
     } else {
@@ -1420,7 +1420,7 @@ static Void local evaluator() {        /* evaluate expr and print value    */
         }
         inputExpr = ap2(findName(findText("show")),d,inputExpr);
         inputExpr = ap(findName(findText("putStr")), inputExpr);
-        inputExpr = ap(nameRunIO, inputExpr);
+        inputExpr = ap(nameRunIO_toplevel, inputExpr);
 
         evalExp(); printf("\n");
         if (addType) {

ghc/interpreter/link.c

@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.28 $
- * $Date: 2000/01/10 16:23:32 $
+ * $Revision: 1.29 $
+ * $Date: 2000/01/10 16:27:04 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -89,7 +89,7 @@ Name nameBind;             /* for translating monad comps     */
 Name nameZero;                          /* for monads with a zero          */
 
 Name nameId;
-Name nameRunIO;
+Name nameRunIO_toplevel;
 Name namePrint;
 
 Name nameOtherwise;
@@ -459,7 +459,7 @@ Void linkPreludeNames(void) {           /* Hook to names defined in Prelude */
         /* static(tidyInfix)                        */
         nameNegate         = linkName("negate");
         /* user interface                           */
-        nameRunIO          = linkName("hugsprimRunIO_toplevel");
+        nameRunIO_toplevel = linkName("hugsprimRunIO_toplevel");
         namePrint          = linkName("print");
         /* desugar                                  */
         nameOtherwise      = linkName("otherwise");

ghc/interpreter/link.h

 
 extern Cell conCons;
 
-extern Name nameRunIO;
+extern Name nameRunIO_toplevel;
 
 /* The following data constructors are used to box unboxed
  * arguments and are treated differently by the code generator.