03/05: hurd-boot: Symlink /hurd before setting up translators.

[guix-commits]

jpoiret pushed a commit to branch master
in repository guix.

commit e041801e615d9194505d30093a7fdc8ac1d4a929
Author: Josselin Poiret <dev@jpoiret.xyz>
AuthorDate: Sun May 14 15:17:25 2023 +0200

    hurd-boot: Symlink /hurd before setting up translators.
    
    * gnu/build/hurd-boot.scm (boot-hurd-system): Symlink /hurd before setting 
up
    translators.
    
    Reviewed-by: Janneke Nieuwenhuizen <janneke@gnu.org>
---
 gnu/build/hurd-boot.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index abcf0304c2..95c15907dd 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -280,14 +280,14 @@ XXX TODO: use Linux xattr/setxattr to remove (settrans 
in) /libexec/RUNSYSTEM
             (system  (find-long-option "gnu.system" args))
             (to-load (find-long-option "gnu.load" args)))
 
-       (format #t "Setting-up essential translators...\n")
-       (setenv "PATH" (string-append system "/profile/bin"))
-       (set-hurd-device-translators)
-
        (false-if-exception (delete-file "/hurd"))
        (let ((hurd/hurd (readlink* (string-append system "/profile/hurd"))))
          (symlink hurd/hurd "/hurd"))
 
+       (format #t "Setting-up essential translators...\n")
+       (setenv "PATH" (string-append system "/profile/bin"))
+       (set-hurd-device-translators)
+
        (format #t "Starting pager...\n")
        (unless (zero? (system* "/hurd/mach-defpager"))
          (format #t "FAILED...Good luck!\n"))