r18518 - gnucash/trunk/src - Fix up some gnc:debug calls (and one comment).

[Mike Alexander]

Author: mta
Date: 2009-12-17 02:37:15 -0500 (Thu, 17 Dec 2009)
New Revision: 18518
Trac: http://svn.gnucash.org/trac/changeset/18518

Modified:
   gnucash/trunk/src/report/report-system/commodity-utilities.scm
   gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
   gnucash/trunk/src/scm/price-quotes.scm
Log:
Fix up some gnc:debug calls (and one comment).

Modified: gnucash/trunk/src/report/report-system/commodity-utilities.scm
===================================================================
--- gnucash/trunk/src/report/report-system/commodity-utilities.scm	2009-12-17 07:35:42 UTC (rev 18517)
+++ gnucash/trunk/src/report/report-system/commodity-utilities.scm	2009-12-17 07:37:15 UTC (rev 18518)
@@ -780,8 +780,8 @@
 (define (gnc:make-exchange-function exchange-alist)
   (let ((exchangelist exchange-alist))
     (lambda (foreign domestic)
-      (gnc:debug "foreign: " foreign)
-      (gnc:debug "domestic: " domestic)
+      (gnc:debug "foreign: " (gnc:monetary->string foreign))
+      (gnc:debug "domestic: " (gnc-commodity-get-printname domestic))
       (if foreign
           (or (gnc:exchange-by-euro foreign domestic #f)
               (gnc:exchange-if-same foreign domestic)
@@ -898,8 +898,8 @@
 (define (gnc:exchange-by-pricealist-nearest
 	 pricealist foreign domestic date)
   (begin 
-    (gnc:debug "foreign " foreign)
-    (gnc:debug "domestic " domestic)
+    (gnc:debug "foreign " (gnc:monetary->string foreign))
+    (gnc:debug "domestic " (gnc-commodity-get-printname domestic))
     (gnc:debug "pricealist " pricealist)
     
     (if (and (record? foreign) (gnc:gnc-monetary? foreign)

Modified: gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2009-12-17 07:35:42 UTC (rev 18517)
+++ gnucash/trunk/src/report/standard-reports/advanced-portfolio.scm	2009-12-17 07:37:15 UTC (rev 18518)
@@ -643,8 +643,8 @@
 	    ;; what this means is gain = moneyout - moneyin + basis-of-current-shares, and
 	    ;; adjust for brokers and dividends.
 	    (gaincoll 'add currency (sum-basis basis-list))
-	    (gnc:debug (list "basis we're using to build rows is " (sum-basis basis-list)))
-	    (gnc:debug (list "but the actual basis list is " basis-list))
+	    (gnc:debug "basis we're using to build rows is " (sum-basis basis-list))
+	    (gnc:debug "but the actual basis list is " basis-list)
 
 	    (gaincoll 'merge moneyoutcoll #f)
 	    (gaincoll 'minusmerge moneyincoll #f)

Modified: gnucash/trunk/src/scm/price-quotes.scm
===================================================================
--- gnucash/trunk/src/scm/price-quotes.scm	2009-12-17 07:35:42 UTC (rev 18517)
+++ gnucash/trunk/src/scm/price-quotes.scm	2009-12-17 07:37:15 UTC (rev 18518)
@@ -259,7 +259,7 @@
              #t
              (lambda ()
                (set! results (read from-child))
-               (gnc:debug (list 'results results))
+               (gnc:debug "results: " results)
                results)
              (lambda (key . args)
                key)))))
@@ -345,7 +345,7 @@
                (catch
                 #t
                 (lambda ()
-                  (gnc:debug (list 'handling-request request))
+                  (gnc:debug "handling-request: " request)
                   ;; we need to display the first element (the method, so it
                   ;; won't be quoted) and then write the rest
                   (display #\( to-child)
@@ -356,7 +356,7 @@
                   (newline to-child)
                   (force-output to-child)
                   (set! results (read from-child))
-                  (gnc:debug (list 'results results))
+                  (gnc:debug "results: " results)
                   results)
                 (lambda (key . args)
                   key)))
@@ -482,7 +482,7 @@
                     (and (pair? alist-item)
                          (not (eq? 'failed-conversion (cdr alist-item)))))
                   (cdr call-result)))
-            ;; OK, data is good (as far as we can tell.
+            ;; OK, data is good (as far as we can tell).
             (set! result-list
                   (cons (list (car call-data)
                               (caddr call-data)