aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-10-16 15:53:59 +0200
committerLudovic Courtès <ludo@gnu.org>2013-10-16 15:53:59 +0200
commitf1352766fa64e5b2d12b1c64373463783e10cb53 (patch)
treec48a4fdc774aa80212615cd8e631d4aeb6783da5
parent8f557fc8b7dc2f91ec26b6752a7e12a1fb383e2b (diff)
downloadgnu-guix-f1352766fa64e5b2d12b1c64373463783e10cb53.tar
gnu-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.scm2
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<?))