some minor bug fixes

1986-12-01 10:06:53 +00:00
parent ad40a77afd
commit c57d4ff268
15 changed files with 165 additions and 106 deletions
--- a/lang/m2/comp/scope.h
+++ b/lang/m2/comp/scope.h
@@ -30,13 +30,13 @@ struct scopelist {
 };

 extern struct scope
-	*PervasiveScope,
-	*GlobalScope;
+	*PervasiveScope;

 extern struct scopelist
-	*CurrVis;
+	*CurrVis, *GlobalVis;

 #define CurrentScope	(CurrVis->sc_scope)
+#define GlobalScope	(GlobalVis->sc_scope)
 #define enclosing(x)	((x)->sc_encl)
 #define scopeclosed(x)	((x)->sc_scopeclosed)
 #define nextvisible(x)	((x)->next)		/* use with scopelists */