summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-04-01 23:07:29 +0200
committerLudovic Courtès <ludo@gnu.org>2014-04-01 23:47:51 +0200
commit57832f2ce79ca9817d1de9766edd09dac225f6df (patch)
treef112c13d63dc18fa1624d7ea784202766aa055f2
parentc6e948592485fecfb1d290afb3a5bf4045bc6a9c (diff)
substitute-binary: Avoid consing 'regexp-exec' arguments.
* guix/scripts/substitute-binary.scm (regexp-exec): Change formals to (rx str . rest).
-rwxr-xr-xguix/scripts/substitute-binary.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm
index f61d06a05c..8e35612e3a 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -99,9 +99,9 @@ disabled!~%"))
(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.