nameRunIO --> nameRunIO_toplevel
* included in the distribution.
*
* $RCSfile: hugs.c,v $
* 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>
* ------------------------------------------------------------------------*/
#include <setjmp.h>
#if 1
if (isProgType(ks,bd)) {
#if 1
if (isProgType(ks,bd)) {
- inputExpr = ap(nameRunIO,inputExpr);
+ inputExpr = ap(nameRunIO_toplevel,inputExpr);
evalExp();
Putchar('\n');
} else {
evalExp();
Putchar('\n');
} else {
}
inputExpr = ap2(findName(findText("show")),d,inputExpr);
inputExpr = ap(findName(findText("putStr")), inputExpr);
}
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) {
evalExp(); printf("\n");
if (addType) {
* included in the distribution.
*
* $RCSfile: link.c,v $
* 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"
* ------------------------------------------------------------------------*/
#include "prelude.h"
Name nameZero; /* for monads with a zero */
Name nameId;
Name nameZero; /* for monads with a zero */
Name nameId;
+Name nameRunIO_toplevel;
Name namePrint;
Name nameOtherwise;
Name namePrint;
Name nameOtherwise;
/* static(tidyInfix) */
nameNegate = linkName("negate");
/* user interface */
/* static(tidyInfix) */
nameNegate = linkName("negate");
/* user interface */
- nameRunIO = linkName("hugsprimRunIO_toplevel");
+ nameRunIO_toplevel = linkName("hugsprimRunIO_toplevel");
namePrint = linkName("print");
/* desugar */
nameOtherwise = linkName("otherwise");
namePrint = linkName("print");
/* desugar */
nameOtherwise = linkName("otherwise");
+extern Name nameRunIO_toplevel;
/* The following data constructors are used to box unboxed
* arguments and are treated differently by the code generator.
/* The following data constructors are used to box unboxed
* arguments and are treated differently by the code generator.