- Initial knowledge displayed when running --check.

2006-07-27 10:45:26 +00:00 · 2006-07-27 10:45:26 +00:00 · 4e085f0eb8
commit 4e085f0eb8
parent f00392ac3e
1 changed files with 18 additions and 13 deletions
--- a/src/compiler.c
+++ b/src/compiler.c
@ -867,7 +867,8 @@ roleCompile (Term nameterm, Tac tc)
 void
 roleKnows (Tac tc)
 {
-  thisRole->knows = termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac));
+  thisRole->knows =
+    termlistConcat (thisRole->knows, tacTermlist (tc->t1.tac));
 }

 void
@ -1812,6 +1813,9 @@ preprocess (const System sys)
   * compute hidelevels
   */
  hidelevelCompute (sys);
+
+  if (switches.check)
+    {
      /*
       * display initial role knowledge
       */
@ -1826,3 +1830,4 @@ preprocess (const System sys)
      }
      iterateRoles (sys, showRK);
    }
+}