summaryrefslogtreecommitdiff
path: root/libguile/finalizers.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-26 16:29:31 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-26 16:30:31 +0200
commit1fbe89f7bdbf35408ec2df8de755c2f1323016a6 (patch)
treeabc82c65fd5dc29bc271a5fe442c6698338f9581 /libguile/finalizers.c
parentd3d7696072b20870059ecdffb0dd4bb63a23877e (diff)
downloadguile-1fbe89f7bdbf35408ec2df8de755c2f1323016a6.tar.gz
'finalization_thread_proc' sets errno before calling 'perror'.
* libguile/finalizers.c (finalization_thread_proc): Set 'errno' before calling 'perror'.
Diffstat (limited to 'libguile/finalizers.c')
-rw-r--r--libguile/finalizers.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/finalizers.c b/libguile/finalizers.c
index 0d37c2fda..0ae165fd1 100644
--- a/libguile/finalizers.c
+++ b/libguile/finalizers.c
@@ -1,4 +1,4 @@
-/* Copyright 2012-2014,2018-2019
+/* Copyright 2012-2014,2018-2020
Free Software Foundation, Inc.
This file is part of Guile.
@@ -221,6 +221,7 @@ finalization_thread_proc (void *unused)
{
if (data.err != EINTR)
{
+ errno = data.err;
perror ("error in finalization thread");
return NULL;
}