01/10: deduplication: Remove 'false-if-system-error', now unused.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a5b34d9d24cababcaa9d5e93813ccb3196e11a95
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jul 3 10:17:09 2018 +0200

    deduplication: Remove 'false-if-system-error', now unused.
    
    * guix/store/deduplication.scm (false-if-system-error): Remove.
---
 guix/store/deduplication.scm | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm
index b97719d..6ff4a50de 100644
--- a/guix/store/deduplication.scm
+++ b/guix/store/deduplication.scm
@@ -110,17 +110,6 @@ Note: TARGET, TO-REPLACE, and SWAP-DIRECTORY must be on 
the same file system."
         (unless (= EMLINK (system-error-errno args))
           (apply throw args))))))
 
-(define-syntax-rule (false-if-system-error (errors ...) exp ...)
-  "Given ERRORS, a list of system error codes to ignore, evaluates EXP... and
-return #f if any of the system error codes in the given list are thrown."
-  (catch 'system-error
-    (lambda ()
-      exp ...)
-    (lambda args
-      (if (member (system-error-errno args) (list errors ...))
-          #f
-          (apply throw args)))))
-
 (define* (deduplicate path hash #:key (store %store-directory))
   "Check if a store item with sha256 hash HASH already exists.  If so,
 replace PATH with a hardlink to the already-existing one.  If not, register