~ruther/guix-local: substitute-binary: Avoid consing 'regexp-exec' arguments.

57832f2ce79ca9817d1de9766edd09dac225f6df — Ludovic Courtès 12 years ago c6e9485

substitute-binary: Avoid consing 'regexp-exec' arguments.

* guix/scripts/substitute-binary.scm (regexp-exec): Change formals
  to (rx str . rest).

patch browse .tar.gz

1 files changed, 2 insertions(+), 2 deletions(-)

M guix/scripts/substitute-binary.scm

M guix/scripts/substitute-binary.scm => guix/scripts/substitute-binary.scm +2 -2

@@ 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.