[uim-commit] r1796 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-04 03:44:42 -0700 (Tue, 04 Oct 2005)
New Revision: 1796

Modified:
   branches/r5rs/sigscheme/error.c
Log:
* sigscheme/error.c
  - (throw_exception): "guard" doesn't use handler, so check
    error continuation


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-10-04 10:34:31 UTC (rev 1795)
+++ branches/r5rs/sigscheme/error.c	2005-10-04 10:44:42 UTC (rev 1796)
@@ -67,7 +67,7 @@
 static void throw_exception(ScmObj errorobj)
 {
 #if SCM_EXCEPTION_HANDLING
-    if (FALSEP(CURRENT_EXCEPTION_HANDLER())) {
+    if (FALSEP(CURRENT_EXCEPTION_CONTINUATION())) {
         /* outermost exception handler */
         if (SigScm_DebugCategories() & SCM_DBG_BACKTRACE)
             SigScm_ShowBacktrace();