summaryrefslogtreecommitdiff
path: root/guix/store/deduplication.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-07-03 10:17:09 +0200
committerLudovic Courtès <ludo@gnu.org>2018-07-03 17:50:04 +0200
commita5b34d9d24cababcaa9d5e93813ccb3196e11a95 (patch)
tree8065c0b0e0ee66b6ae68db945391bd797cf768d8 /guix/store/deduplication.scm
parent13f5eb349438df9cc4f47f2dfca6532c6dc81c72 (diff)
deduplication: Remove 'false-if-system-error', now unused.
* guix/store/deduplication.scm (false-if-system-error): Remove.
Diffstat (limited to 'guix/store/deduplication.scm')
-rw-r--r--guix/store/deduplication.scm11
1 files changed, 0 insertions, 11 deletions
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