aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-09-10 14:46:00 +0200
committerLudovic Courtès <ludo@gnu.org>2018-09-10 17:47:52 +0200
commit7d05868847c477c75d2c5af3aa4d7baae862191c (patch)
tree118f4bba597ac7d45743d9f1099d0c67bb9d548c
parentf8121329b1dcebb55d6dfbae553bfa69d557eede (diff)
downloadguix-7d05868847c477c75d2c5af3aa4d7baae862191c.tar
guix-7d05868847c477c75d2c5af3aa4d7baae862191c.tar.gz
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.
-rwxr-xr-xguix/scripts/substitute.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm
index cd300195d8..6d31dfdaa4 100755
--- a/guix/scripts/substitute.scm
+++ b/guix/scripts/substitute.scm
@@ -1087,7 +1087,10 @@ default value."
(#f #f)
(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-error-handling ; for signature errors