Several minor mods: simplifications and identifier name changes

1991-03-18 16:30:49 +00:00
parent 22378eaff8
commit 5a53ba3f50
6 changed files with 207 additions and 222 deletions
--- a/lang/m2/comp/enter.c
+++ b/lang/m2/comp/enter.c
@@ -362,7 +362,9 @@ ForwDef(ids, scope)

 	if (!(df = lookup(ids->nd_IDF, scope, 0, 0))) {
 		df = define(ids->nd_IDF, scope, D_FORWARD);
-		df->for_node = MkLeaf(Name, &(ids->nd_token));
+		df->for_node = new_node();
+		*(df->for_node) = *ids;
+		df->for_node->nd_NEXT = 0;
 	}
 	return df;
 }