From ae9e328800210bee6b5c04e5d80007d70bfadd75 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 13 Jan 2013 23:47:37 +0100
Subject: 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.
---
 guix-package.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix-package.in')

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
-- 
cgit v1.2.3

t'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=59bb53823e6babb2d50e246d312879980c7988c9'>refs</a><a class='active' href='/guix/log/gnu/tests/virtualization.scm'>log</a><a href='/guix/tree/gnu/tests/virtualization.scm?id=59bb53823e6babb2d50e246d312879980c7988c9'>tree</a><a href='/guix/commit/gnu/tests/virtualization.scm?id=59bb53823e6babb2d50e246d312879980c7988c9'>commit</a><a href='/guix/diff/gnu/tests/virtualization.scm?id=59bb53823e6babb2d50e246d312879980c7988c9'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/tests/virtualization.scm'>
<input type='hidden' name='id' value='59bb53823e6babb2d50e246d312879980c7988c9'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=59bb53823e6babb2d50e246d312879980c7988c9'>root</a>/<a href='/guix/log/gnu?id=59bb53823e6babb2d50e246d312879980c7988c9'>gnu</a>/<a href='/guix/log/gnu/tests?id=59bb53823e6babb2d50e246d312879980c7988c9'>tests</a>/<a href='/guix/log/gnu/tests/virtualization.scm?id=59bb53823e6babb2d50e246d312879980c7988c9'>virtualization.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/tests/virtualization.scm?id=59bb53823e6babb2d50e246d312879980c7988c9&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-02-10 23:21:07 +0100'>2024-02-10</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=9edbb2d7a40c9da7583a1046e39b87633459f656'>services: Add ‘virtual-build-machine’ service.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2024-01-08 23:14:46 +0100'>2024-01-08</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=4e0b93ce738750ba625734509ae9cc1c67348d40'>tests: childhurd: Increase SSH connection timeout.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-12-14 23:12:24 +0100'>2023-12-14</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=1de1b975be97340ece33356430add3837f5eaae1'>tests: childhurd: Prefer “-cpu max” over “-cpu host”.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-05 23:14:55 +0200'>2023-10-05</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=917c17c052beebefa109c4eff3a7b0307460a4c7'>tests: childhurd: Test SSH connection with a non-root user.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-01 22:58:20 +0200'>2023-10-01</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=953c65ffdd43c02c934518fb7a1c68542584b223'>services: hurd-vm: Implement zero-configuration offloading.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-01 22:58:20 +0200'>2023-10-01</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=c3a19cc2ac7ddc821d7fc56455f68546b087be47'>services: hurd-vm: Disable password-based authentication for root.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-01 22:58:19 +0200'>2023-10-01</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=100d71f8a144fd58fc20b7ffa942b550118db526'>tests: hurd-vm: Remove custom disk image configuration.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-10-01 22:58:19 +0200'>2023-10-01</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=bab6434f5855b92631615fdd8a2d2a225da28359'>services: hurd-vm: ‘image’ field has to be an &lt;image&gt; record.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-09-17 15:31:03 +0200'>2023-09-17</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=db014e394e4fe256d2413d8316c85119828dc2f2'>tests: childhurd: Add missing module imports.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-03 17:55:35 +0100'>2023-03-03</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=2799ad44234be675f018115f99be98d2c9fd565d'>services: dbus: Deprecate 'dbus-service' procedure.</a></td><td>Bruno Victal</td></tr>
<tr><td><span title='2023-03-03 17:55:34 +0100'>2023-03-03</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=ffc5d42fc2589c349579c00e9dd11fabdff2663b'>services: dbus: Deprecate 'polkit-service' procedure.</a></td><td>Bruno Victal</td></tr>
<tr><td><span title='2022-08-29 21:21:40 +0200'>2022-08-29</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=eb52b240eb58627cc76a03244c45502c4ec3c50e'>gnu: Add missing copyright line.</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-08-29 21:15:58 +0200'>2022-08-29</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=3e0abde17be944153be57ab5faeefc645266d39d'>tests: libvirt: Ensure the default network can be started.</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2022-08-09 17:15:45 +0200'>2022-08-09</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=fd74fe6325eb54a48e496b3afe5001005b15d802'>tests: Add qemu-guest-agent system test.</a></td><td>Timotej Lazar</td></tr>
<tr><td><span title='2022-06-05 23:35:30 +0200'>2022-06-05</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=f697dd94c4e9fe501e686146ee4c250173392565'>tests: childhurd: Make sure "guix build -d" works.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-06-05 23:35:30 +0200'>2022-06-05</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=1fc4d821eb3b34e06b217e94f400e13d8030e7b9'>tests: childhurd: Generalize command execution over SSH.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-09-26 23:20:56 +0200'>2021-09-26</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=89b05442933d92f4b21c3294455a498e8333727d'>tests: Reduce boilerplate for users of 'system-test-runner'.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-09-25 18:52:05 +0200'>2021-09-25</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=1fb75128a5202b406622da6272bc809c46d1f439'>tests: Adjust to SRFI-64 as found in Guile 3.0.7.</a></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-04-05 18:26:36 +0100'>2021-04-05</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=81f65a3a2c5f4d1a5e8d74a4525181d8ae7d5408'>tests: libvirt: Catch issues with incorrect /var and /etc in package.</a></td><td>Pierre Langlois</td></tr>
<tr><td><span title='2020-10-01 15:47:29 +0200'>2020-10-01</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=18e76f89055f25f015fadb7c999b410f38a88cc6'>services: hurd-vm: Resurrect system-test by using raw disk-image.</a></td><td>Jan (janneke) Nieuwenhuizen</td></tr>
<tr><td><span title='2020-09-29 21:56:28 +0200'>2020-09-29</span></td><td><a href='/guix/commit/gnu/tests/virtualization.scm?id=c11c19bd4d0dc4ec56b949647057dbf00567f2ae'>services: hurd-vm: Add system test.</a></td><td>Ludovic Courtès</td></tr>