[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/10: deduplication: Remove 'false-if-system-error', now unused.
From: |
Ludovic Courtès |
Subject: |
01/10: deduplication: Remove 'false-if-system-error', now unused. |
Date: |
Tue, 3 Jul 2018 11:50:14 -0400 (EDT) |
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
- branch master updated (13f5eb3 -> a51cf16), Ludovic Courtès, 2018/07/03
- 02/10: syscalls: Define AT_SYMLINK_NOFOLLOW et al., Ludovic Courtès, 2018/07/03
- 01/10: deduplication: Remove 'false-if-system-error', now unused.,
Ludovic Courtès <=
- 03/10: database: 'reset-timestamps' now correctly handles symlinks., Ludovic Courtès, 2018/07/03
- 04/10: ui: Report file names in 'system-error' exceptions from 'delete-file'., Ludovic Courtès, 2018/07/03
- 05/10: guix system: Make 'init' idempotent again., Ludovic Courtès, 2018/07/03
- 07/10: tests: basic: Wait for /var/run/shepherd/socket to be ready., Ludovic Courtès, 2018/07/03
- 06/10: Revert "packages: Optimize 'package-transitive-supported-systems'.", Ludovic Courtès, 2018/07/03
- 10/10: gnu: Update stellarium to 0.18.0., Ludovic Courtès, 2018/07/03
- 08/10: gnu: Add pocl., Ludovic Courtès, 2018/07/03
- 09/10: gnu: emacs-helm-system-packages: Update to 1.10.0., Ludovic Courtès, 2018/07/03