* included in the distribution.
*
* $RCSfile: link.c,v $
- * $Revision: 1.56 $
- * $Date: 2000/04/04 15:41:56 $
+ * $Revision: 1.58 $
+ * $Date: 2000/04/07 16:22:12 $
* ------------------------------------------------------------------------*/
#include "hugsbasictypes.h"
Name nameMult;
Name nameMFail;
Type typeOrdering;
-Module modulePrimPrel;
+Module modulePrelPrim;
Module modulePrelude;
Name nameMap;
Name nameMinus;
tc = findTyconInAnyModule(findText(s));
if (nonNull(tc)) return tc;
}
-fprintf(stderr, "frambozenvla! unknown tycon %s\n", s );
+FPrintf(stderr, "frambozenvla! unknown tycon %s\n", s );
return NIL;
ERRMSG(0) "Prelude does not define standard type \"%s\"", s
EEND;
cc = findClassInAnyModule(findText(s));
if (nonNull(cc)) return cc;
}
-fprintf(stderr, "frambozenvla! unknown class %s\n", s );
+FPrintf(stderr, "frambozenvla! unknown class %s\n", s );
return NIL;
ERRMSG(0) "Prelude does not define standard class \"%s\"", s
EEND;
n = findNameInAnyModule(findText(s));
if (nonNull(n)) return n;
}
-fprintf(stderr, "frambozenvla! unknown name %s\n", s );
+FPrintf(stderr, "frambozenvla! unknown name %s\n", s );
return NIL;
ERRMSG(0) "Prelude does not define standard name \"%s\"", s
EEND;
if (combined) {
setCurrModule(modulePrelude);
} else {
- setCurrModule(modulePrimPrel);
+ setCurrModule(modulePrelPrim);
}
typeChar = linkTycon("Char");
if (combined) {
setCurrModule(modulePrelude);
} else {
- setCurrModule(modulePrimPrel);
+ setCurrModule(modulePrelPrim);
}
/* constructors */
if (combined) {
setCurrModule(modulePrelude);
} else {
- setCurrModule(modulePrimPrel);
+ setCurrModule(modulePrelPrim);
}
/* primops */
} else {
fixupRTStoPreludeRefs(NULL);
- modulePrimPrel = findFakeModule(textPrimPrel);
+ modulePrelPrim = findFakeModule(textPrelPrim);
modulePrelude = findFakeModule(textPrelude);
- setCurrModule(modulePrimPrel);
+ setCurrModule(modulePrelPrim);
for (i=0; i<NUM_TUPLES; ++i) {
if (i != 1) addTupleTycon(i);
}
- setCurrModule(modulePrimPrel);
+ setCurrModule(modulePrelPrim);
typeArrow = addPrimTycon(findText("(->)"),
pair(STAR,pair(STAR,STAR)),