Commit 1d4102fe authored by sewardj's avatar sewardj
Browse files

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

nameRunIO --> nameRunIO_toplevel
parent 9df21476
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
* included in the distribution. * included in the distribution.
* *
* $RCSfile: hugs.c,v $ * $RCSfile: hugs.c,v $
* $Revision: 1.33 $ * $Revision: 1.34 $
* $Date: 2000/01/07 16:56:47 $ * $Date: 2000/01/10 16:27:03 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include <setjmp.h> #include <setjmp.h>
...@@ -1406,7 +1406,7 @@ static Void local evaluator() { /* evaluate expr and print value */ ...@@ -1406,7 +1406,7 @@ static Void local evaluator() { /* evaluate expr and print value */
#if 1 #if 1
if (isProgType(ks,bd)) { if (isProgType(ks,bd)) {
inputExpr = ap(nameRunIO,inputExpr); inputExpr = ap(nameRunIO_toplevel,inputExpr);
evalExp(); evalExp();
Putchar('\n'); Putchar('\n');
} else { } else {
...@@ -1420,7 +1420,7 @@ static Void local evaluator() { /* evaluate expr and print value */ ...@@ -1420,7 +1420,7 @@ static Void local evaluator() { /* evaluate expr and print value */
} }
inputExpr = ap2(findName(findText("show")),d,inputExpr); inputExpr = ap2(findName(findText("show")),d,inputExpr);
inputExpr = ap(findName(findText("putStr")), inputExpr); inputExpr = ap(findName(findText("putStr")), inputExpr);
inputExpr = ap(nameRunIO, inputExpr); inputExpr = ap(nameRunIO_toplevel, inputExpr);
evalExp(); printf("\n"); evalExp(); printf("\n");
if (addType) { if (addType) {
......
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
* included in the distribution. * included in the distribution.
* *
* $RCSfile: link.c,v $ * $RCSfile: link.c,v $
* $Revision: 1.28 $ * $Revision: 1.29 $
* $Date: 2000/01/10 16:23:32 $ * $Date: 2000/01/10 16:27:04 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include "prelude.h" #include "prelude.h"
...@@ -89,7 +89,7 @@ Name nameBind; /* for translating monad comps */ ...@@ -89,7 +89,7 @@ Name nameBind; /* for translating monad comps */
Name nameZero; /* for monads with a zero */ Name nameZero; /* for monads with a zero */
Name nameId; Name nameId;
Name nameRunIO; Name nameRunIO_toplevel;
Name namePrint; Name namePrint;
Name nameOtherwise; Name nameOtherwise;
...@@ -459,7 +459,7 @@ Void linkPreludeNames(void) { /* Hook to names defined in Prelude */ ...@@ -459,7 +459,7 @@ Void linkPreludeNames(void) { /* Hook to names defined in Prelude */
/* static(tidyInfix) */ /* static(tidyInfix) */
nameNegate = linkName("negate"); nameNegate = linkName("negate");
/* user interface */ /* user interface */
nameRunIO = linkName("hugsprimRunIO_toplevel"); nameRunIO_toplevel = linkName("hugsprimRunIO_toplevel");
namePrint = linkName("print"); namePrint = linkName("print");
/* desugar */ /* desugar */
nameOtherwise = linkName("otherwise"); nameOtherwise = linkName("otherwise");
......
extern Cell conCons; extern Cell conCons;
extern Name nameRunIO; extern Name nameRunIO_toplevel;
/* The following data constructors are used to box unboxed /* The following data constructors are used to box unboxed
* arguments and are treated differently by the code generator. * arguments and are treated differently by the code generator.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment