[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

11/15: DRAFT hurd-boot: Support second boot.

From: guix-commits
Subject: 11/15: DRAFT hurd-boot: Support second boot.
Date: Thu, 30 Nov 2023 01:17:45 -0500 (EST)

janneke pushed a commit to branch hurd-team
in repository guix.

commit e0bf23715963e3f79e6098e75f6371c3fa1941a3
Author: Janneke Nieuwenhuizen <>
AuthorDate: Tue May 30 18:08:38 2023 +0200

    DRAFT hurd-boot: Support second boot.
    * gnu/build/hurd-boot.scm (boot-hurd-system): Check for stale shepherd 
    and remove it.  Be chattier about /hurd symlink replacement.
 gnu/build/hurd-boot.scm | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/gnu/build/hurd-boot.scm b/gnu/build/hurd-boot.scm
index daf4fb41ab..23ace25d4f 100644
--- a/gnu/build/hurd-boot.scm
+++ b/gnu/build/hurd-boot.scm
@@ -322,18 +322,29 @@ XXX TODO: use Linux xattr/setxattr to remove (settrans 
in) /libexec/RUNSYSTEM
      (let* ((args    (command-line))
             (system  (find-long-option "gnu.system" args))
-            (to-load (find-long-option "gnu.load" args)))
+            (to-load (find-long-option "gnu.load" args))
+            (profile (string-append system "/profile"))
+            (bin     (string-append profile "/bin"))
+            (sbin    (string-append profile "/bin")))
-       (false-if-exception (delete-file "/hurd"))
-       (let ((hurd/hurd (readlink* (string-append system "/profile/hurd"))))
-         (symlink hurd/hurd "/hurd"))
+       (setenv "PATH" (string-append bin ":" sbin))
+       (when (file-exists? "/var/run/shepherd/socket")
+         (format #t "Removing stale shepherd socket...\n")
+         (delete-file "/var/run/shepherd/socket"))
        (unless (file-exists? "/servers/startup")
          (format #t "Creating essential device nodes...\n")
+       (let ((profile/hurd (readlink* (string-append profile "/hurd"))))
+         (when (file-exists? "/hurd")
+           (format #t "Removing stale /hurd link\n")
+           (delete-file "/hurd"))
+         (format #t "Linking /hurd from ~a...\n" profile/hurd)
+         (symlink profile/hurd "/hurd"))
        (format #t "Setting-up essential translators...\n")
-       (setenv "PATH" (string-append system "/profile/bin"))
        (format #t "Starting pager...\n")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]