IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix up some gnc:debug calls (and one comment).

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@18518 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Mike Alexander 2009-12-17 07:37:15 +00:00
parent 2183451889
commit 889f4d19ac
3 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/report/report-system/commodity-utilities.scm
View File

@ -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)

4
src/report/standard-reports/advanced-portfolio.scm
View File

@ -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)

8
src/scm/price-quotes.scm
View File

@ -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)