diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/build/activation.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index 53844c0990e..dbe35f41b88 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm | |||
| @@ -497,6 +497,8 @@ improvement." | |||
| 497 | (mkdir-p "/run") | 497 | (mkdir-p "/run") |
| 498 | ;; Atomically make SYSTEM current. | 498 | ;; Atomically make SYSTEM current. |
| 499 | (let ((new (string-append %current-system ".new"))) | 499 | (let ((new (string-append %current-system ".new"))) |
| 500 | (when (file-exists? new) | ||
| 501 | (delete-file new)) | ||
| 500 | (symlink system new) | 502 | (symlink system new) |
| 501 | (rename-file new %current-system))) | 503 | (rename-file new %current-system))) |
| 502 | 504 | ||
