From a5b34d9d24cababcaa9d5e93813ccb3196e11a95 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 3 Jul 2018 10:17:09 +0200 Subject: 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(-) (limited to 'guix/store') diff --git a/guix/store/deduplication.scm b/guix/store/deduplication.scm index b97719d4bf..6ff4a50de5 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 -- cgit v1.2.3