[c-interface] internal defines must be declared first

An internal (define) cannot be after a statement such
as (issue-deprecation-warning). This rule was strict in guile-2.2 but
relaxed in guile-3.0, hence, the mixed results in CI.
This commit is contained in:
Christopher Lam 2020-12-24 21:05:57 +08:00
parent bf671d4fc7
commit 0510ecfe85

View File

@ -88,9 +88,9 @@
;; strings. Strings that are returned by the lookup function are
;; translated with gettext.
(define (gnc:make-string-database)
(define string-hash (make-hash-table))
(issue-deprecation-warning "gnc:make-string-database is deprecated. It \
will be removed in GnuCash 5.x")
(define string-hash (make-hash-table))
(lambda args
(match args
(('lookup key) (G_ (hash-ref string-hash key)))