- Initial knowledge displayed when running --check.

This commit is contained in:
ccremers 2006-07-27 10:45:26 +00:00
parent f00392ac3e
commit 4e085f0eb8

View File

@ -867,7 +867,8 @@ roleCompile (Term nameterm, Tac tc)
void void
roleKnows (Tac tc) roleKnows (Tac tc)
{ {
thisRole->knows = termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac)); thisRole->knows =
termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac));
} }
void void
@ -1812,6 +1813,9 @@ preprocess (const System sys)
* compute hidelevels * compute hidelevels
*/ */
hidelevelCompute (sys); hidelevelCompute (sys);
if (switches.check)
{
/* /*
* display initial role knowledge * display initial role knowledge
*/ */
@ -1824,5 +1828,6 @@ preprocess (const System sys)
termlistPrint (r->knows); termlistPrint (r->knows);
eprintf ("\n"); eprintf ("\n");
} }
iterateRoles (sys,showRK); iterateRoles (sys, showRK);
}
} }