[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: discovery: Handle edge case in scheme-files when looking at symli
From: |
guix-commits |
Subject: |
01/01: discovery: Handle edge case in scheme-files when looking at symlinks. |
Date: |
Mon, 8 Jul 2019 12:04:53 -0400 (EDT) |
cbaines pushed a commit to branch master
in repository guix.
commit 1d0bde2ee4009a301fee6ceeaf140396bb49a748
Author: Christopher Baines <address@hidden>
Date: Sun Jul 7 12:14:58 2019 +0100
discovery: Handle edge case in scheme-files when looking at symlinks.
Previously, this code would cause crashes in Guix (running guix package -s
for
example) which could be experienced when Emacs creates temporary files in
the
gnu/packages/patches directory when a patch file has been edited, but not
saved.
* guix/discovery.scm (scheme-files): Add else clause to cond used when
handling symlinks.
---
guix/discovery.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/guix/discovery.scm b/guix/discovery.scm
index 5bb4949..86f20ec 100644
--- a/guix/discovery.scm
+++ b/guix/discovery.scm
@@ -78,7 +78,9 @@ DIRECTORY is not accessible."
((= stat:type 'directory)
(append (scheme-files absolute)
result))
- (_ result)))))
+ (_ result)))
+ (else
+ result)))
(else
result))))))
'()