diff options
| -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. |