From 57832f2ce79ca9817d1de9766edd09dac225f6df Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 1 Apr 2014 23:07:29 +0200
Subject: 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(-)

(limited to 'guix')

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.
-- 
cgit v1.2.3