~ruther/guix-local

ff5072d2707656fb43a5b1428d5ee127a700228c — Ludovic Courtès 2 years ago 221a922
doc: Refer to ‘iso-codes’, not ‘iso-codes/pinned’.

This effectively reverts 8e5c8303a414719c19a597247674be87fd500d45, which
was unnecessary in this case and would break when evaluating
‘doc/build.scm’ against a previous Guix revision where
‘iso-codes/pinned’ is unbound.

* doc/build.scm (localization-helper-module): Use ‘iso-codes’ rather
than ‘iso-codes/pinned’.

Change-Id: I95497fa474fb5ce89c7d2fe9bf0925a0cd438763
1 files changed, 3 insertions(+), 4 deletions(-)

M doc/build.scm
M doc/build.scm => doc/build.scm +3 -4
@@ 1,5 1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;


@@ 1061,8 1061,7 @@ must be the Guix top-level source directory, from which PO files are taken."
                 (bindtextdomain "guix-manual"
                                 #+(guix-manual-text-domain source))
                 (bindtextdomain "iso_639-3"      ;language names
                                 #+(file-append iso-codes/pinned
                                                "/share/locale"))
                                 #+(file-append iso-codes "/share/locale"))
                 (setenv "LANGUAGE" ,language)
                 (write (gettext ,str ,domain))))



@@ 1080,7 1079,7 @@ must be the Guix top-level source directory, from which PO files are taken."
          (define %iso639-languages
            (vector->list
             (assoc-ref (call-with-input-file
                            #+(file-append iso-codes/pinned
                            #+(file-append iso-codes
                                           "/share/iso-codes/json/iso_639-3.json")
                          json->scm)
                        "639-3")))