From 57832f2ce79ca9817d1de9766edd09dac225f6df Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 1 Apr 2014 23:07:29 +0200
Subject: [PATCH] substitute-binary: Avoid consing 'regexp-exec' arguments.
* guix/scripts/substitute-binary.scm (regexp-exec): Change formals
to (rx str . rest).
---
guix/scripts/substitute-binary.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm
index f61d06a05c7..8e35612e3a0 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -99,9 +99,9 @@ (define %narinfo-expired-cache-entry-removal-delay
(set! regexp-exec
(let ((real regexp-exec)
(lock (make-mutex)))
- (lambda args
+ (lambda (rx str . rest)
(with-mutex lock
- (apply real args)))))
+ (apply real rx str rest)))))
(define fields->alist
;; The narinfo format is really just like recutils.
--
GitLab