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

View file

@ -78,7 +78,9 @@ (define (entry-type name properties)
((= stat:type 'directory)
(append (scheme-files absolute)
result))
(_ result)))))
(_ result)))
(else
result)))
(else
result))))))
'()