diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-01-13 23:47:37 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-01-13 23:47:37 +0100 |
| commit | ae9e328800210bee6b5c04e5d80007d70bfadd75 (patch) | |
| tree | cf645e6a9676081796594a08906ace26dc3920b7 /guix-package.in | |
| parent | 1ca982808a3cc6b4f2e7136679a7e490609aade7 (diff) | |
| download | guix-ae9e328800210bee6b5c04e5d80007d70bfadd75.tar guix-ae9e328800210bee6b5c04e5d80007d70bfadd75.tar.gz | |
guix-package: Fix check for ~/.guix-profile existence.
* guix-package.in (guix-package): When testing whether
%USER-ENVIRONMENT-DIRECTORY exists, use `lstat' instead of
`file-exists?'. Reported by Andreas Enge.
Diffstat (limited to 'guix-package.in')
| -rw-r--r-- | guix-package.in | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-package.in b/guix-package.in index 450d09e081..3b8615cb72 100644 --- a/guix-package.in +++ b/guix-package.in @@ -462,7 +462,8 @@ Install, remove, or upgrade PACKAGES in a single transaction.\n")) ;; Create ~/.guix-profile if it doesn't exist yet. (when (and %user-environment-directory %current-profile - (not (file-exists? %user-environment-directory))) + (not (false-if-exception + (lstat %user-environment-directory)))) (symlink %current-profile %user-environment-directory)) (with-error-handling |