diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-09-10 14:46:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-10 17:47:52 +0200 |
| commit | 7d05868847c477c75d2c5af3aa4d7baae862191c (patch) | |
| tree | 118f4bba597ac7d45743d9f1099d0c67bb9d548c | |
| parent | f8121329b1dcebb55d6dfbae553bfa69d557eede (diff) | |
| download | guix-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-x | guix/scripts/substitute.scm | 5 |
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 |