06/08: self: Move statements after definitions in translation derivation.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 301527be8b5bed9e629aef1d9719a092f60d6b56
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 22 23:40:15 2020 +0200

    self: Move statements after definitions in translation derivation.
    
    * guix/self.scm (translate-texi-manuals)[build]: Move statements after
    definitions.
---
 guix/self.scm | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/guix/self.scm b/guix/self.scm
index 39dfbaa..12727dd 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -293,22 +293,6 @@ DOMAIN, a gettext domain."
                        (ice-9 vlist)
                        (srfi srfi-1))
 
-          (mkdir #$output)
-
-          (copy-recursively #$documentation "."
-                            #:log (%make-void-port "w"))
-
-          (for-each
-            (lambda (file)
-              (copy-file file (basename file)))
-            (find-files #$documentation-po ".*.po$"))
-
-          (setenv "GUIX_LOCPATH"
-                  #+(file-append glibc-utf8-locales "/lib/locale"))
-          (setenv "PATH" #+(file-append gettext "/bin"))
-          (setenv "LC_ALL" "en_US.UTF-8")
-          (setlocale LC_ALL "en_US.UTF-8")
-
           (define (translate-tmp-texi po source output)
             "Translate Texinfo file SOURCE using messages from PO, and write
 the result to OUTPUT."
@@ -414,6 +398,21 @@ a list of extra files, such as '(\"contributing\")."
                         (find-files directory
                                     "\\.[a-z]{2}(_[A-Z]{2})?\\.po$")))
 
+          (mkdir #$output)
+          (copy-recursively #$documentation "."
+                            #:log (%make-void-port "w"))
+
+          (for-each
+            (lambda (file)
+              (copy-file file (basename file)))
+            (find-files #$documentation-po ".*.po$"))
+
+          (setenv "GUIX_LOCPATH"
+                  #+(file-append glibc-utf8-locales "/lib/locale"))
+          (setenv "PATH" #+(file-append gettext "/bin"))
+          (setenv "LC_ALL" "en_US.UTF-8")
+          (setlocale LC_ALL "en_US.UTF-8")
+
           (for-each (match-lambda
                       ((language . po)
                        (translate-texi "guix" po language