diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-14 21:08:16 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
commit | 78fd74622dca5f2def261506c3f8d4c0a940a6c4 (patch) | |
tree | 87b8362454c759b680fe566229b5adbc3f25e712 /module/calp/translation.scm | |
parent | Change NOTE to TODO. (diff) | |
download | calp-78fd74622dca5f2def261506c3f8d4c0a940a6c4.tar.gz calp-78fd74622dca5f2def261506c3f8d4c0a940a6c4.tar.xz |
Change gettext '_' to 'G_'.
Guile 3 reserves _ for other stuff.
Diffstat (limited to 'module/calp/translation.scm')
-rw-r--r-- | module/calp/translation.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/translation.scm b/module/calp/translation.scm index 67189e7a..e99062db 100644 --- a/module/calp/translation.scm +++ b/module/calp/translation.scm @@ -3,7 +3,7 @@ :use-module (ice-9 regex) :use-module (ice-9 match) :use-module (srfi srfi-88) - :export (_ translate yes-no-check)) + :export (G_ translate yes-no-check)) (bindtextdomain "calp" "/home/hugo/code/calp/localization/") @@ -18,7 +18,7 @@ (gettext string "calp"))) ;; Mark string for translation, and also make it discoverable for gettext -(define (_ . msg) +(define (G_ . msg) (translate (string-join msg))) (define* (yes-no-check string optional: (locale %global-locale)) |