substitute-binary: Remove thread-safe 'regexp-exec' wrapper.

* guix/scripts/substitute-binary.scm: Remove 'regexp-exec' setting.
This commit is contained in:
Ludovic Courtès 2015-01-08 23:11:28 +01:00
parent d3a652037e
commit cb043c2b13
1 changed files with 0 additions and 10 deletions

View File

@ -34,7 +34,6 @@
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 threads)
#:use-module (ice-9 format) #:use-module (ice-9 format)
#:use-module (ice-9 ftw) #:use-module (ice-9 ftw)
#:use-module (ice-9 binary-ports) #:use-module (ice-9 binary-ports)
@ -96,15 +95,6 @@ disabled!~%"))
;; How often we want to remove files corresponding to expired cache entries. ;; How often we want to remove files corresponding to expired cache entries.
(* 7 24 3600)) (* 7 24 3600))
;; In Guile 2.0.9, `regexp-exec' is thread-unsafe, so work around it.
;; See <http://bugs.gnu.org/14404>.
(set! regexp-exec
(let ((real regexp-exec)
(lock (make-mutex)))
(lambda (rx str . rest)
(with-mutex lock
(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.
recutils->alist) recutils->alist)