[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#36537] [PATCH] discovery: Handle edge case in scheme-files when loo

From: Christopher Baines
Subject: [bug#36537] [PATCH] discovery: Handle edge case in scheme-files when looking at symlinks.
Date: Sun, 7 Jul 2019 12:21:02 +0100

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

* 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 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)))
+                              (else
+                               result)))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]