[Gnucash-changes] improve debug printing

[Linas Vepstas]

Log Message:
-----------
improve debug printing

Modified Files:
--------------
    gnucash/src/engine:
        Scrub.c

Revision Data
-------------
Index: Scrub.c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/engine/Scrub.c,v
retrieving revision 1.63
retrieving revision 1.64
diff -Lsrc/engine/Scrub.c -Lsrc/engine/Scrub.c -u -r1.63 -r1.64
--- src/engine/Scrub.c
+++ src/engine/Scrub.c
@@ -217,6 +217,7 @@
   int scu;
 
   if (!split) return;
+  ENTER ("(split=%p)", split);
 
   trans = xaccSplitGetParent (split);
   if (!trans) return;
@@ -251,8 +252,12 @@
   {
     xaccAccountScrubCommodity (account);
   }
-  if (!account->commodity || !gnc_commodity_equiv (account->commodity, currency))
+  if (!account->commodity || 
+      !gnc_commodity_equiv (account->commodity, currency))
+  {
+    LEAVE ("(split=%p) inequiv currency", split);
     return;
+  }
 
   scu = MIN (xaccAccountGetCommoditySCU (account),
              gnc_commodity_get_fraction (currency));
@@ -279,6 +284,7 @@
   xaccTransBeginEdit (trans);
   xaccSplitSetAmount (split, value);
   xaccTransCommitEdit (trans);
+  LEAVE ("(split=%p)", split);
 }
 
 /* ================================================================ */
@@ -340,6 +346,7 @@
 
   if (!trans) return;
 
+  ENTER ("()");
   xaccTransScrubSplits (trans);
 
   /* If the transaction is balanced, nothing more to do */
@@ -442,6 +449,7 @@
     xaccSplitScrub (balance_split);
     xaccTransCommitEdit (trans);
   }
+  LEAVE ("()");
 }
 
 /* ================================================================ */