diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 4aecfaca2cc7cb0d95443b45efceea904c3c69d9..eb362f91a8f947ece439d6bcd2f005cffb3d38e3 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -215,6 +215,9 @@ (define (normal-tty tty) (auto-login "root") (login-pause? #t)))) + (define bare-bones-os + (load "examples/bare-bones.tmpl")) + (list (mingetty-service (mingetty-configuration (tty "tty1") (auto-login "root"))) @@ -284,7 +287,11 @@ (define (normal-tty tty) ;; connections to this system to work. (service special-files-service-type `(("/bin/sh" ,(file-append (canonical-package bash) - "/bin/sh"))))))) + "/bin/sh")))) + + ;; Keep a reference to BARE-BONES-OS to make sure it can be + ;; installed without downloading/building anything. + (service gc-root-service-type (list bare-bones-os))))) (define %issue ;; Greeting.