me/guix
Archived
1
0
Fork 0
Code 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 @@ disabled!~%"))
(set! regexp-exec (set! regexp-exec
(let ((real regexp-exec) (let ((real regexp-exec)
(lock (make-mutex))) (lock (make-mutex)))
(lambda args (lambda (rx str . rest)
(with-mutex lock (with-mutex lock
(apply real args))))) (apply real rx str rest)))))
(define fields->alist (define fields->alist
;; The narinfo format is really just like recutils. ;; The narinfo format is really just like recutils.