IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-30 12:44:01 -06:00
Code Issues Packages Projects Releases Wiki Activity

completion redefine gnc:debug

Browse Source
This commit is contained in:
Christopher Lam 2019-07-07 08:30:54 +08:00
parent 429077ee8e
commit b3a4cd6277
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libgnucash/scm/utilities.scm
View File

@ -66,9 +66,18 @@
(define (gnc:msg . items) (define (gnc:msg . items)
(gnc-scm-log-msg (strify items))) (gnc-scm-log-msg (strify items)))
(define (gnc:debug . items) ;; this definition of gnc:debug is different from others because we
(when (qof-log-check "gnc" G-LOG-LEVEL-DEBUG) ;; want to check loglevel is debug *once* at gnc:debug definition
(gnc-scm-log-debug (strify items)))) ;; instead of every call to gnc:debug. if loglevel isn't debug then
;; gnc:debug becomes a NOOP.
(define gnc:debug
(cond
((qof-log-check "gnc" QOF-LOG-DEBUG)
(display "debugging enabled\n")
(lambda items (gnc-scm-log-debug (strify items))))
(else
(lambda items #f))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the following functions are initialized to log message to tracefile ;; the following functions are initialized to log message to tracefile