diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-04-01 23:07:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-01 23:47:51 +0200 |
| commit | 57832f2ce79ca9817d1de9766edd09dac225f6df (patch) | |
| tree | f112c13d63dc18fa1624d7ea784202766aa055f2 | |
| parent | c6e948592485fecfb1d290afb3a5bf4045bc6a9c (diff) | |
| download | guix-57832f2ce79ca9817d1de9766edd09dac225f6df.tar guix-57832f2ce79ca9817d1de9766edd09dac225f6df.tar.gz | |
substitute-binary: Avoid consing 'regexp-exec' arguments.
* guix/scripts/substitute-binary.scm (regexp-exec): Change formals
to (rx str . rest).
| -rwxr-xr-x | guix/scripts/substitute-binary.scm | 4 |
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. |