line numbers for clauses and clause properties

This commit is contained in:
Vítor Santos Costa
2013-11-05 17:59:19 +00:00
parent e06b160da2
commit 917d5ad75b
17 changed files with 374 additions and 192 deletions

View File

@@ -2340,7 +2340,7 @@ cls_head_info(ClauseDef *min, ClauseDef *max, UInt argno, int in_idb)
} else {
while (cl <= max) {
LogUpdClause *lcl = ClauseCodeToLogUpdClause(cl->CurrentCode);
Term t = lcl->ClSource->Entry;
Term t = lcl->lusl.ClSource->Entry;
if (IsVarTerm(t)) {
cl->Tag = (CELL)NULL;