01/01: discovery: Handle edge case in scheme-files when looking at symlinks.

[guix-commits]

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))))))
               '()