A more precise safety after a term.

1985-10-02 22:49:16 +00:00
parent 73153b484b
commit b83ab7873e
2 changed files with 24 additions and 14 deletions
--- a/util/LLgen/src/gencode.c
+++ b/util/LLgen/src/gencode.c
@@ -761,8 +761,7 @@ codeforterm(q,safety,toplevel) register p_term q; {
 			fputs(c_close, f);/* Close Register ... */
 		}
 	}
-	if (rep != FIXED || !noscan) return SCANDONE;
-	return NOSCANDONE;
+	return t_after(rep, i, noscan);
 }

 STATIC