update debug output.

diff --git a/lib/mlenv.cc b/lib/mlenv.cc
index 37c1b6c..7e829f0 100644 (file)
--- a/lib/mlenv.cc
+++ b/lib/mlenv.cc
@@ -504,8 +504,8 @@ void  MlEnv::logSexp (MNode* c) {
     int  i;
 
     if (!mlPool->nolog && log && c && c->isCons ()) {
-       for (i = 0; i < mlPool->includeCount; i ++)
-           *log << ":";
+//     for (i = 0; i < mlPool->includeCount; i ++)
+//         *log << ":";
        logLinenum (c);
        for (i = 0; i < nestCount; i ++)
            *log << "|  ";

diff --git a/lib/mlenv.h b/lib/mlenv.h
index d4858ea..f33b643 100644 (file)
--- a/lib/mlenv.h
+++ b/lib/mlenv.h
@@ -311,10 +311,12 @@ class  AutoCallCount {
  public:
     MlEnv*  mlenv;
     AutoCallCount (MlEnv* _env): mlenv (_env) {
-       mlenv->nestCount ++;
+       if (! mlenv->mlPool->nolog)
+           mlenv->nestCount ++;
     };
     virtual  ~AutoCallCount () {
-       mlenv->nestCount --;
+       if (! mlenv->mlPool->nolog)
+           mlenv->nestCount --;
     };
 };