(address . guix-patches@gnu.org)(name . Josselin Poiret)(address . dev@jpoiret.xyz)
From: Josselin Poiret <dev@jpoiret.xyz>
* gnu/build/hurd-boot.scm (boot-hurd-system): Symlink /hurd before setting up
translators.
---
Hi everyone,
This should fix the Hurd not booting.
Enjoy! (and now we also need to fix the native Hurd compilation problems, but
that's for another patch)
gnu/build/hurd-boot.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
Toggle diff (27 lines)
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 @@ (define* (boot-hurd-system #:key (on-error 'debug))
(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"))
base-commit: eb7312401ea89e634f8d686db71bacda58b2755f
--
2.40.1