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

call strify only if debugging enabled

Browse Source
This commit is contained in:
Christopher Lam 2019-07-06 11:14:56 +08:00
parent 898a9cdb8e
commit 42b6fb993b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgnucash/scm/utilities.scm
View File

@ -27,6 +27,10 @@
(use-modules (gnucash core-utils)) (use-modules (gnucash core-utils))
(eval-when (compile load eval expand)
(load-extension "libgncmod-engine" "scm_init_sw_engine_module"))
(use-modules (sw_engine))
;; Load the srfis (eventually, we should see where these are needed ;; Load the srfis (eventually, we should see where these are needed
;; and only have the use-modules statements in those files). ;; and only have the use-modules statements in those files).
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
@ -63,7 +67,8 @@
(gnc-scm-log-msg (strify items))) (gnc-scm-log-msg (strify items)))
(define (gnc:debug . items) (define (gnc:debug . items)
(gnc-scm-log-debug (strify items))) (when (qof-log-check "gnc" G-LOG-LEVEL-DEBUG)
(gnc-scm-log-debug (strify items))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; the following functions are initialized to log message to tracefile ;; the following functions are initialized to log message to tracefile