From cb043c2b13c484744312772e9e74e2a1dbced95b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 8 Jan 2015 23:11:28 +0100 Subject: substitute-binary: Remove thread-safe 'regexp-exec' wrapper. * guix/scripts/substitute-binary.scm: Remove 'regexp-exec' setting. --- guix/scripts/substitute-binary.scm | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'guix') diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm index c21c50fe9f..e797c6d40b 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 . -(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) -- cgit v1.2.3