diff --git a/gnu/installer.scm b/gnu/installer.scm index 7b2914be98..415f5a7af7 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -335,7 +335,6 @@ (define set-installer-path ntfs-3g ;mkfs.ntfs xfsprogs ;mkfs.xfs kbd ;chvt - guix ;guix system init call util-linux ;mkwap nano shadow diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm index 2087536502..3f6dacc490 100644 --- a/gnu/installer/final.scm +++ b/gnu/installer/final.scm @@ -170,8 +170,7 @@ (define (assert-exit x) (database-dir "/var/guix/db") (database-file (string-append database-dir "/db.sqlite")) (saved-database (string-append database-dir "/db.save")) - (ret #f) - (path (getenv "PATH"))) + (ret #f)) (mkdir-p (%installer-target-dir)) ;; We want to initialize user passwords but we don't want to store them in @@ -210,7 +209,7 @@ (define (assert-exit x) (setvbuf (current-output-port) 'none) (setvbuf (current-error-port) 'none) - (setenv "PATH" path) + (setenv "PATH" "/run/current-system/profile/bin/") (set! ret (run-command install-command))) (lambda ()