From f1352766fa64e5b2d12b1c64373463783e10cb53 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 16 Oct 2013 15:53:59 +0200
Subject: 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(-)

(limited to 'guix/build/utils.scm')

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 @@ (define file-rx
                           (lambda (file stat errno result)
                             (format (current-error-port) "find-files: ~a: ~a~%"
                                     file (strerror errno))
-                            #f)
+                            result)
                           '()
                           dir)
         string<?))
-- 
cgit v1.2.3