mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

.

Browse source
This commit is contained in:
Jim Blandy 1996-09-28 02:02:40 +00:00
parent d6c7f2deab
commit 1d1cf2bf14
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/throw.c
View file

@ -195,9 +195,9 @@ scm_catch (tag, thunk, handler)
of a read-eval-print loop. of a read-eval-print loop.
3) Given that we shouldn't do anything complex, it's much more 3) Given that we shouldn't do anything complex, it's much more
robust to do it in C code. */ robust to do it in C code. */
static SCM unhandled_throw SCM_P ((SCM key, SCM args)); static SCM uncaught_throw SCM_P ((SCM key, SCM args));
static SCM static SCM
unhandled_throw (key, args) uncaught_throw (key, args)
SCM key; SCM key;
SCM args; SCM args;
{ {
@ -265,7 +265,7 @@ scm_ithrow (key, args, noreturn)
/* If we didn't find anything, print a message and exit Guile. */ /* If we didn't find anything, print a message and exit Guile. */
if (SCM_IMP (winds) || SCM_NCONSP (winds)) if (SCM_IMP (winds) || SCM_NCONSP (winds))
unhandled_throw (key, args); uncaught_throw (key, args);
if (dynpair != SCM_BOOL_F) if (dynpair != SCM_BOOL_F)
jmpbuf = SCM_CDR (dynpair); jmpbuf = SCM_CDR (dynpair);