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

[guile-3] change _ to G_

Browse Source 
In guile-3 _ is a reserved symbol. Change to G_ by guile gettext
convention.
This commit is contained in:
Christopher Lam
2020-07-12 19:01:28 +08:00
parent a0c1fd6134
commit 428c8c501c
70 changed files with 1008 additions and 1007 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
bindings/guile/core-utils.scm
View File

@@ -24,22 +24,23 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-module (gnucash core-utils))
(define-module (gnucash core-utils)
#:export (N_
G_
gnc:version))
;; Guile 2 needs to find the symbols from the extension at compile time already
(eval-when
(compile load eval expand)
(load-extension "libgnucash-guile" "gnc_guile_bindings_init"))
(eval-when (compile load eval expand)
(load-extension "libgnucash-guile" "gnc_guile_bindings_init"))
(use-modules (sw_core_utils))
; Export the swig-wrapped symbols in the public interface of this module
(let ((i (module-public-interface (current-module))))
(module-use! i (resolve-interface '(sw_core_utils))))
;; Export the swig-wrapped symbols in the public interface of this module
(module-use! (module-public-interface (current-module))
(resolve-interface '(sw_core_utils)))
(define gnc:version (gnc-version))
(define-public gnc:version (gnc-version))
;; gettext functions
(define-public _ gnc:gettext)
(define-syntax N_
(syntax-rules ()
((_ x) x)))
(export N_)
(define G_ gnc:gettext)
(define-syntax-rule (N_ x) x)