substitute: Ignore exceptions thrown by 'set-thread-name'.

Fixes <https://bugs.gnu.org/32669>.
Reported by Ricardo Wurmus <rekado@elephly.net>.

* guix/scripts/substitute.scm (guix-substitute): Swallow 'system-error'
exceptions around 'set-thread-name' call.
This commit is contained in:
Ludovic Courtès 2018-09-10 14:46:00 +02:00
parent f8121329b1
commit 7d05868847
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions

View File

@ -1087,7 +1087,10 @@ default value."
(#f #f) (#f #f)
(locale (false-if-exception (setlocale LC_ALL locale)))) (locale (false-if-exception (setlocale LC_ALL locale))))
(set-thread-name "guix substitute") (catch 'system-error
(lambda ()
(set-thread-name "guix substitute"))
(const #t)) ;GNU/Hurd lacks 'prctl'
(with-networking (with-networking
(with-error-handling ; for signature errors (with-error-handling ; for signature errors