diff options
| -rw-r--r-- | gnu/build/activation.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm index d1a2876a961..a450578c247 100644 --- a/gnu/build/activation.scm +++ b/gnu/build/activation.scm | |||
| @@ -113,7 +113,9 @@ and bits are set according to the default behaviour of 'mkdir'." | |||
| 113 | ;; If not, create it. | 113 | ;; If not, create it. |
| 114 | (catch 'system-error | 114 | (catch 'system-error |
| 115 | (lambda _ | 115 | (lambda _ |
| 116 | (mkdirat root head)) | 116 | (if (null? tail) |
| 117 | (mkdirat root head bits) | ||
| 118 | (mkdirat root head))) | ||
| 117 | (lambda args | 119 | (lambda args |
| 118 | ;; Someone else created the directory. Unexpected but fine. | 120 | ;; Someone else created the directory. Unexpected but fine. |
| 119 | (unless (= EEXIST (system-error-errno args)) | 121 | (unless (= EEXIST (system-error-errno args)) |