diff options
Diffstat (limited to 'libguile/finalizers.c')
-rw-r--r-- | libguile/finalizers.c | 56 |
1 files changed, 31 insertions, 25 deletions
diff --git a/libguile/finalizers.c b/libguile/finalizers.c index c5d69e8e3..3d1126f5c 100644 --- a/libguile/finalizers.c +++ b/libguile/finalizers.c @@ -1,20 +1,21 @@ -/* Copyright (C) 2012, 2013, 2014 Free Software Foundation, Inc. - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public License - * as published by the Free Software Foundation; either version 3 of - * the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the Free Software - * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA - * 02110-1301 USA - */ +/* Copyright 2012-2014,2018 + Free Software Foundation, Inc. + + This file is part of Guile. + + Guile is free software: you can redistribute it and/or modify it + under the terms of the GNU Lesser General Public License as published + by the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + Guile is distributed in the hope that it will be useful, but WITHOUT + ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or + FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public + License for more details. + + You should have received a copy of the GNU Lesser General Public + License along with Guile. If not, see + <https://www.gnu.org/licenses/>. */ @@ -23,16 +24,21 @@ # include <config.h> #endif -#include <unistd.h> +#include <errno.h> #include <fcntl.h> - #include <full-write.h> +#include <stdio.h> +#include <unistd.h> + +#include "async.h" +#include "bdw-gc.h" +#include "gc.h" +#include "gsubr.h" +#include "init.h" +#include "threads.h" + +#include "finalizers.h" -#include "libguile/bdw-gc.h" -#include "libguile/_scm.h" -#include "libguile/finalizers.h" -#include "libguile/gc.h" -#include "libguile/threads.h" @@ -149,7 +155,7 @@ run_finalizers_async_thunk (void) static void queue_finalizer_async (void) { - scm_i_thread *t = SCM_I_CURRENT_THREAD; + scm_thread *t = SCM_I_CURRENT_THREAD; /* Could be that the current thread is is NULL when we're allocating in threads.c:guilify_self_1. In that case, rely on the |