newer version

lang/m2/comp/input.c

@@ -1,17 +1,25 @@
 /* I N S T A N T I A T I O N   O F   I N P U T   P A C K A G E */
 
-/* $Header$ */
-
 #include	"f_info.h"
 struct f_info	file_info;
 #include	"input.h"
+#include	<em_arith.h>
+#include	<em_label.h>
+#include	"def.h"
+#include	"idf.h"
+#include	"scope.h"
 #include	<inp_pkg.body>
 
+extern struct idf *CurrentId;
+
 AtEoIF()
 {
 	/*	Make the unstacking of input streams noticable to the
 	   	lexical analyzer
 	*/
+	if (CurrentId && ! lookup(CurrentId, GlobalScope)) {
+fatal("No definition module read for \"%s\"", CurrentId->id_text);
+	}
 	return 1;
 }