diff options
Diffstat (limited to 'libguile/throw.h')
-rw-r--r-- | libguile/throw.h | 49 |
1 files changed, 21 insertions, 28 deletions
diff --git a/libguile/throw.h b/libguile/throw.h index f2020a331..ea206f900 100644 --- a/libguile/throw.h +++ b/libguile/throw.h @@ -1,29 +1,28 @@ -/* classes: h_files */ - #ifndef SCM_THROW_H #define SCM_THROW_H -/* Copyright (C) 1995,1996,1998,2000, 2006, 2008, 2010, 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 1995-1996,1998,2000,2006,2008,2010,2014,2017-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/>. */ -#include "libguile/__scm.h" +#include "libguile/scm.h" @@ -84,7 +83,7 @@ SCM_API int scm_exit_status (SCM args); SCM_API SCM scm_catch_with_pre_unwind_handler (SCM tag, SCM thunk, SCM handler, SCM lazy_handler); SCM_API SCM scm_catch (SCM tag, SCM thunk, SCM handler); SCM_API SCM scm_with_throw_handler (SCM tag, SCM thunk, SCM handler); -SCM_API SCM scm_ithrow (SCM key, SCM args, int no_return); +SCM_API SCM scm_ithrow (SCM key, SCM args, int no_return) SCM_NORETURN; /* This throws to the `stack-overflow' key, without running pre-unwind handlers. */ @@ -94,13 +93,7 @@ SCM_API void scm_report_stack_overflow (void); handlers. */ SCM_API void scm_report_out_of_memory (void); -SCM_API SCM scm_throw (SCM key, SCM args); +SCM_API SCM scm_throw (SCM key, SCM args) SCM_NORETURN; SCM_INTERNAL void scm_init_throw (void); #endif /* SCM_THROW_H */ - -/* - Local Variables: - c-file-style: "gnu" - End: -*/ |