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.
This commit is contained in:
parent
8f557fc8b7
commit
f1352766fa
|
@ -207,7 +207,7 @@ matches REGEXP."
|
||||||
(lambda (file stat errno result)
|
(lambda (file stat errno result)
|
||||||
(format (current-error-port) "find-files: ~a: ~a~%"
|
(format (current-error-port) "find-files: ~a: ~a~%"
|
||||||
file (strerror errno))
|
file (strerror errno))
|
||||||
#f)
|
result)
|
||||||
'()
|
'()
|
||||||
dir)
|
dir)
|
||||||
string<?))
|
string<?))
|
||||||
|
|
Loading…
Reference in New Issue