mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Remove boot "catch" definition.

Browse source 
* libguile/throw.c (scm_init_throw): Remove boot definition of "catch".
This commit is contained in:
Andy Wingo 2019-10-07 14:22:54 +02:00
parent 3c73d77e2a
commit f2c8ff5a52
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/throw.c
View file

@ -1,4 +1,4 @@
/* Copyright 1995-1998,2000-2001,2003-2004,2006,2008,2009-2014,2017-2018 /* Copyright 1995-1998,2000-2001,2003-2004,2006,2008,2009-2014,2017-2019
Free Software Foundation, Inc. Free Software Foundation, Inc.
This file is part of Guile. This file is part of Guile.
@ -54,9 +54,9 @@
#include "throw.h" #include "throw.h"
/* Pleasantly enough, the guts of catch are defined in Scheme, in terms /* Pleasantly enough, the guts of exception handling are defined in
of prompt, abort, and the %exception-handler fluid. Check boot-9 for Scheme, in terms of prompt, abort, and the %exception-handler fluid.
the definitions. Check boot-9 for the definitions.
Still, it's useful to be able to throw unwind-only exceptions from C, Still, it's useful to be able to throw unwind-only exceptions from C,
for example so that we can recover from stack overflow. We also need for example so that we can recover from stack overflow. We also need
@ -661,7 +661,6 @@ scm_init_throw ()
throw, and with-throw-handler are created in boot-9.scm. */ throw, and with-throw-handler are created in boot-9.scm. */
scm_c_define ("%exception-handler", exception_handler_fluid); scm_c_define ("%exception-handler", exception_handler_fluid);
scm_c_define ("catch", scm_c_make_gsubr ("catch", 3, 1, 0, catch));
throw_var = scm_c_define ("throw", scm_c_make_gsubr ("throw", 1, 0, 1, throw_var = scm_c_define ("throw", scm_c_make_gsubr ("throw", 1, 0, 1,
throw_without_pre_unwind)); throw_without_pre_unwind));