02/07: serialization: Remove redundancy in 'write-file'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit c122a2e509df98c4391750a066fecba37465eab3
Author: Ludovic Courtès <address@hidden>
Date:   Sun Sep 23 22:11:35 2018 +0200

    serialization: Remove redundancy in 'write-file'.
    
    * guix/serialization.scm (write-file): Remove redundant 'member' call.
---
 guix/serialization.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix/serialization.scm b/guix/serialization.scm
index 129374f..87ad7ee 100644
--- a/guix/serialization.scm
+++ b/guix/serialization.scm
@@ -301,8 +301,7 @@ result of 'lstat'; exclude entries for which SELECT? does 
not return true."
                      (filter-map (lambda (base)
                                    (let ((file (string-append directory
                                                               "/" base)))
-                                     (and (not (member base '("." "..")))
-                                          (select? file (lstat file))
+                                     (and (select? file (lstat file))
                                           base)))
                                  basenames))