diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-07-07 12:14:58 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-07-08 17:04:35 +0100 |
| commit | 1d0bde2ee4009a301fee6ceeaf140396bb49a748 (patch) | |
| tree | 98c57bdbb1868087847a2810b9d40245fc0aabcb | |
| parent | 7a2e0c52df8e355d4b1596788d8f71fad3cbefea (diff) | |
| download | patches-1d0bde2ee4009a301fee6ceeaf140396bb49a748.tar patches-1d0bde2ee4009a301fee6ceeaf140396bb49a748.tar.gz | |
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.
| -rw-r--r-- | guix/discovery.scm | 4 |
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)))))) '() |