safety commit, newer version

1986-03-26 22:46:48 +00:00
parent bee901746d
commit 5c1fa6db8c
9 changed files with 118 additions and 45 deletions
--- a/lang/m2/comp/misc.c
+++ b/lang/m2/comp/misc.c
@@ -17,7 +17,7 @@ match_id(id1, id2)
 		first place, and if not, give an error message
 	*/
 	if (id1 != id2 && !is_anon_idf(id1) && !is_anon_idf(id2)) {
-		error("Identifier \"%s\" does not match identifier \"%s\"",
+		error("Name \"%s\" does not match block name \"%s\"",
 		      id1->id_text,
 		      id2->id_text
 		);
@@ -54,10 +54,3 @@ gen_anon_idf()
 			++name_cnt, FileName, LineNumber);
 	return str2idf(buff, 1);
 }
-
-int
-is_anon_idf(idf)
-	struct idf *idf;
-{
-	return idf->id_text[0] == '#';
-}