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.
This commit is contained in:
Christopher Baines 2019-07-07 12:14:58 +01:00
parent 7a2e0c52df
commit 1d0bde2ee4
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 3 additions and 1 deletions

View File

@ -78,7 +78,9 @@ DIRECTORY is not accessible."
((= stat:type 'directory) ((= stat:type 'directory)
(append (scheme-files absolute) (append (scheme-files absolute)
result)) result))
(_ result))))) (_ result)))
(else
result)))
(else (else
result)))))) result))))))
'() '()