summaryrefslogtreecommitdiff
path: root/guix/discovery.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-07-07 12:14:58 +0100
committerChristopher Baines <mail@cbaines.net>2019-07-08 17:04:35 +0100
commit1d0bde2ee4009a301fee6ceeaf140396bb49a748 (patch)
tree98c57bdbb1868087847a2810b9d40245fc0aabcb /guix/discovery.scm
parent7a2e0c52df8e355d4b1596788d8f71fad3cbefea (diff)
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.
Diffstat (limited to 'guix/discovery.scm')
-rw-r--r--guix/discovery.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/discovery.scm b/guix/discovery.scm
index 5bb494941b..86f20ec344 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))))))
'()