andr3/scyther
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- Bugfixed --extravert.

Browse Source
This commit is contained in:
ccremers 2006-03-28 14:24:46 +00:00
parent dff7fcaee3
commit b224344b59
1 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/prune_theorems.c
View File

@ -212,36 +212,29 @@ prune_theorems (const System sys)
{ {
int run; int run;
run = 0; for (run = 0; run < sys->maxruns; run++)
while (run < sys->maxruns)
{ {
// Check this run only if it is an initiator role // Check this run only if it is an initiator role
if (sys->runs[run].role->initiator) if (sys->runs[run].role->initiator)
{ {
// Check this initiator run // Check this initiator run
Termlist tl; Termlist tl;
Termlist found;
tl = sys->runs[run].rho; found = NULL;
while (tl != NULL) for (tl = sys->runs[run].rho; tl != NULL; tl = tl->next)
{ {
Termlist tlscan; if (inTermlist (found, tl->term))
tlscan = tl->next;
while (tlscan != NULL)
{ {
if (isTermEqual (tl->term, tlscan->term)) // XXX TODO
{ // Still need to fix proof output for this
// XXX TODO //
// Still need to fix proof output for this // Pruning because some agents are equal for this role.
// return true;
// Pruning because some agents are equal for this role.
return true;
}
tlscan = tlscan->next;
} }
tl = tl->next; found = termlistAdd (found, tl->term);
} }
run++; termlistDelete (found);
} }
} }
} }