diff options
| author | Josselin Poiret <dev@jpoiret.xyz> | 2023-05-14 15:17:25 +0200 |
|---|---|---|
| committer | Josselin Poiret <dev@jpoiret.xyz> | 2023-05-17 22:26:06 +0200 |
| commit | e041801e615d9194505d30093a7fdc8ac1d4a929 (patch) | |
| tree | 3956e2aa6b79921351b37aa8b9174d4ae3328f92 | |
| parent | d81701a85aa8aa96f4a853f06fe28693fa8bee12 (diff) | |
| download | guix-e041801e615d9194505d30093a7fdc8ac1d4a929.tar.gz guix-e041801e615d9194505d30093a7fdc8ac1d4a929.zip | |
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>
| -rw-r--r-- | gnu/build/hurd-boot.scm | 8 |
1 files 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")) |