diff options
| -rw-r--r-- | .dir-locals.el | 3 | ||||
| -rwxr-xr-x | guix/scripts/substitute-binary.scm | 15 |
2 files changed, 16 insertions, 2 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index c7dc86fffe..fc41d430b4 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -15,7 +15,8 @@ (eval . (put 'with-directory-excursion 'scheme-indent-function 1)) (eval . (put 'package 'scheme-indent-function 1)) (eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1)) - (eval . (put 'with-error-handling 'scheme-indent-function 0)))) + (eval . (put 'with-error-handling 'scheme-indent-function 0)) + (eval . (put 'with-mutex 'scheme-indent-function 1)))) (emacs-lisp-mode . ((indent-tabs-mode . nil))) (texinfo-mode . ((indent-tabs-mode . nil) (fill-column . 72)))) diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm index 5965e936f9..27a43b9e3f 100755 --- a/guix/scripts/substitute-binary.scm +++ b/guix/scripts/substitute-binary.scm @@ -84,6 +84,18 @@ output port, and PROC's result is returned." (lambda (key . args) (false-if-exception (delete-file template)))))) +(define %regexp-exec-mutex + ;; In Guile 2.0.9, `regexp-exec' is thread-unsafe, so work around it. + ;; See <http://bugs.gnu.org/14404>. + (make-mutex)) + +(define string->uri + (let ((real (@ (web uri) string->uri))) + (lambda (uri) + "A thread-safe `string->uri'." + (with-mutex %regexp-exec-mutex + (real uri))))) + (define (fields->alist port) "Read recutils-style record from PORT and return them as a list of key/value pairs." @@ -94,7 +106,8 @@ pairs." (result '())) (cond ((eof-object? line) (reverse result)) - ((regexp-exec field-rx line) + ((with-mutex %regexp-exec-mutex + (regexp-exec field-rx line)) => (lambda (match) (loop (read-line port) |