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

[Ludovic Courtès]

civodul pushed a commit to branch wip-http-pipelining
in repository guix.

commit efc571a3f9a355b9c9b3fb92e666f8d21d22dddd
Author: Ludovic Courtès <address@hidden>
Date:   Thu Jan 8 23:11:28 2015 +0100

    substitute-binary: Remove thread-safe 'regexp-exec' wrapper.
    
    * guix/scripts/substitute-binary.scm: Remove 'regexp-exec' setting.
---
 guix/scripts/substitute-binary.scm |   10 ----------
 1 files changed, 0 insertions(+), 10 deletions(-)

diff --git a/guix/scripts/substitute-binary.scm 
b/guix/scripts/substitute-binary.scm
index 6a6eca0..0ac1267 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -34,7 +34,6 @@
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 regex)
   #:use-module (ice-9 match)
-  #:use-module (ice-9 threads)
   #:use-module (ice-9 format)
   #:use-module (ice-9 ftw)
   #:use-module (ice-9 binary-ports)
@@ -96,15 +95,6 @@ disabled!~%"))
   ;; How often we want to remove files corresponding to expired cache entries.
   (* 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
   ;; The narinfo format is really just like recutils.
   recutils->alist)