[core-utils] define _ for guile-2.2

6 years ago · ad20f859cc
parent 2054e2022e
commit ad20f859cc
1 changed files with 8 additions and 0 deletions
--- a/bindings/guile/core-utils.scm
+++ b/bindings/guile/core-utils.scm
@ -44,3 +44,11 @@
 (define G_ gnc:gettext)
 (define-syntax-rule (N_ x) x)

+;; the following will define _ to call gnc:gettext for guile up to
+;; 2.2. It may be removed in the future when minimum guile is 3.0.
+(cond-expand
+  (guile-3)
+  (guile-2
+   (define (_ x)
+     (issue-deprecation-warning "Using _ to call gettext is disallowed in guile-3 and will be removed in the future. Use G_ instead.")
+     (gnc:gettext x))))