diff options
Diffstat (limited to 'gnu/installer/final.scm')
| -rw-r--r-- | gnu/installer/final.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/installer/final.scm b/gnu/installer/final.scm index 2087536502e..3f6dacc4903 100644 --- a/gnu/installer/final.scm +++ b/gnu/installer/final.scm | |||
| @@ -170,8 +170,7 @@ or #f. Return #t on success and #f on failure." | |||
| 170 | (database-dir "/var/guix/db") | 170 | (database-dir "/var/guix/db") |
| 171 | (database-file (string-append database-dir "/db.sqlite")) | 171 | (database-file (string-append database-dir "/db.sqlite")) |
| 172 | (saved-database (string-append database-dir "/db.save")) | 172 | (saved-database (string-append database-dir "/db.save")) |
| 173 | (ret #f) | 173 | (ret #f)) |
| 174 | (path (getenv "PATH"))) | ||
| 175 | (mkdir-p (%installer-target-dir)) | 174 | (mkdir-p (%installer-target-dir)) |
| 176 | 175 | ||
| 177 | ;; We want to initialize user passwords but we don't want to store them in | 176 | ;; We want to initialize user passwords but we don't want to store them in |
| @@ -210,7 +209,7 @@ or #f. Return #t on success and #f on failure." | |||
| 210 | (setvbuf (current-output-port) 'none) | 209 | (setvbuf (current-output-port) 'none) |
| 211 | (setvbuf (current-error-port) 'none) | 210 | (setvbuf (current-error-port) 'none) |
| 212 | 211 | ||
| 213 | (setenv "PATH" path) | 212 | (setenv "PATH" "/run/current-system/profile/bin/") |
| 214 | 213 | ||
| 215 | (set! ret (run-command install-command))) | 214 | (set! ret (run-command install-command))) |
| 216 | (lambda () | 215 | (lambda () |
