TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* guix/scripts/substitute-binary.scm (regexp-exec): Change formals
  to (rx str . rest).
This commit is contained in:
Ludovic Courtès 2014-04-01 23:07:29 +02:00
parent c6e9485924
commit 57832f2ce7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/substitute-binary.scm
View file

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