diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-09-28 02:02:40 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-09-28 02:02:40 +0000 |
commit | 1d1cf2bf140e36ed185e4bce4d08ec20c420a3de (patch) | |
tree | 4317d5ab752465fe8a21656c23b623a3b29bba2b | |
parent | d6c7f2deab565e0a82fa7069c94d766a8bacc7c8 (diff) | |
download | guile-1d1cf2bf140e36ed185e4bce4d08ec20c420a3de.tar.gz |
.
-rw-r--r-- | libguile/throw.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index 4bbbaaaca..01cd99f89 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -195,9 +195,9 @@ scm_catch (tag, thunk, handler) of a read-eval-print loop. 3) Given that we shouldn't do anything complex, it's much more 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 -unhandled_throw (key, args) +uncaught_throw (key, args) SCM key; SCM args; { @@ -265,7 +265,7 @@ scm_ithrow (key, args, noreturn) /* If we didn't find anything, print a message and exit Guile. */ if (SCM_IMP (winds) || SCM_NCONSP (winds)) - unhandled_throw (key, args); + uncaught_throw (key, args); if (dynpair != SCM_BOOL_F) jmpbuf = SCM_CDR (dynpair); |