From f1352766fa64e5b2d12b1c64373463783e10cb53 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 16 Oct 2013 15:53:59 +0200
Subject: [PATCH] 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.
---
 guix/build/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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<?))