self: Move statements after definitions in translation derivation.

* guix/self.scm (translate-texi-manuals)[build]: Move statements after
definitions.

1 files changed, 15 insertions, 16 deletions

diff --git a/guix/self.scm b/guix/self.scm
index 39dfbaadc0..12727ddbae 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