'("bootstrap-tarballs" "gcc-toolchain" "nss-certs"
"openssh" "emacs" "vim" "python" "guile" "guix")))
+(define %base-packages/hurd
+ ;; XXX: For now we are less demanding of "i586-gnu".
+ (map specification->package
+ '("coreutils" "grep" "findutils" "gawk" "make"
+ "gcc-toolchain" "tar" "xz")))
+
(define %system-packages
;; Key packages proposed by the Guix System installer.
(append (map specification->package
(manifest
(append-map (lambda (system)
(map (cut package->manifest-entry* <> system)
- %base-packages))
+ (if (string=? system "i586-gnu")
+ %base-packages/hurd
+ %base-packages)))
%hydra-supported-systems)))
(define %system-manifest