New version, with an option for strict Modula-2, and

warnings for unused or uninitialized variables

lang/m2/comp/scope.C

@@ -217,6 +217,10 @@ close_scope(flag)
 
 	assert(sc != 0);
 
+	if (! sc->sc_end) {
+		sc->sc_end = dot2leaf(Link);
+	}
+
 	if (flag) {
 		DO_DEBUG(options['S'],(print("List of definitions in currently ended scope:\n"), DumpScope(sc->sc_def)));
 		if (flag & SC_CHKPROC) chk_proc(sc->sc_def);