diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-10-16 15:53:59 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-10-16 15:53:59 +0200 |
| commit | f1352766fa64e5b2d12b1c64373463783e10cb53 (patch) | |
| tree | c48a4fdc774aa80212615cd8e631d4aeb6783da5 | |
| parent | 8f557fc8b7dc2f91ec26b6752a7e12a1fb383e2b (diff) | |
| download | guix-f1352766fa64e5b2d12b1c64373463783e10cb53.tar guix-f1352766fa64e5b2d12b1c64373463783e10cb53.tar.gz | |
utils: 'find-files' always returns a proper list.
Reported at <http://bugs.gnu.org/15608>.
* guix/build/utils.scm (find-files): Change the 'error' procedure to
return RESULT. Before we would end up with an improper list.
| -rw-r--r-- | guix/build/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index 8cc9c1ee1f..a37ace31af 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -207,7 +207,7 @@ matches REGEXP." (lambda (file stat errno result) (format (current-error-port) "find-files: ~a: ~a~%" file (strerror errno)) - #f) + result) '() dir) string<?)) |