[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#60014] [PATCH] activation: make install-special-file match against
From: |
mirai |
Subject: |
[bug#60014] [PATCH] activation: make install-special-file match against pairs as well. |
Date: |
Mon, 12 Dec 2022 17:45:47 +0000 |
From: Bruno Victal <mirai@makinata.eu>
special-files is a list of 2-tuples (pairs) but matching against
a non-list pair would fail as match-lambda was only matching
against a list pattern.
---
gnu/build/activation.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm
index 10c9045740..d4a7559651 100644
--- a/gnu/build/activation.scm
+++ b/gnu/build/activation.scm
@@ -341,7 +341,7 @@ (define (activate-special-files special-files)
"
(define install-special-file
(match-lambda
- ((target file)
+ ((or (target file) (? pair? (= car target) (= cdr file)))
(let ((pivot (string-append target ".new")))
(mkdir-p (dirname target))
(symlink file pivot)
base-commit: 5fb5af5658b7575a945579a7cf51c193600b76bb
--
2.38.1
- [bug#60014] [PATCH] activation: make install-special-file match against pairs as well.,
mirai <=
[bug#60014] [PATCH] activation: make install-special-file match against pairs as well., Ludovic Courtès, 2022/12/20