From 0510ecfe85f9771e82ab10e45336befe54e8d207 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Thu, 24 Dec 2020 21:05:57 +0800 Subject: [PATCH] [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. --- libgnucash/app-utils/c-interface.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libgnucash/app-utils/c-interface.scm b/libgnucash/app-utils/c-interface.scm index 4a1df47e93..c4a414803c 100644 --- a/libgnucash/app-utils/c-interface.scm +++ b/libgnucash/app-utils/c-interface.scm @@ -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)))