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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-07 12:46:35 -0800 (Mon, 07 Nov 2005)
New Revision: 2075

Modified:
   branches/r5rs/sigscheme/operations-srfi34.c
Log:
* sigscheme/operations-srfi34.c
  - (ScmOp_SRFI34_with_exception_handler, ScmExp_SRFI34_guard): Fix
    lacking pointer dereference (jmp_buf * is passed for setjmp(jmp_buf))


Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-11-07 19:54:05 UTC (rev 2074)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-11-07 20:46:35 UTC (rev 2075)
@@ -110,7 +110,7 @@
 
     CONTINUATION_SET_JMPENV(cont, &jmpenv);
     CONTINUATION_SET_DYNEXT(cont, scm_current_dynamic_extent);
-    if (setjmp(CONTINUATION_JMPENV(cont))) {
+    if (setjmp(jmpenv)) {
         ret = Scm_call(CURRENT_EXCEPTION_HANDLER(), LIST_1(exception_thrown_obj));
         POP_EXCEPTION_CONTINUATION();
         POP_EXCEPTION_HANDLER();
@@ -152,7 +152,7 @@
     /* check if return from "raise" */
     CONTINUATION_SET_JMPENV(cont, &jmpenv);
     CONTINUATION_SET_DYNEXT(cont, scm_current_dynamic_extent);
-    if (setjmp(CONTINUATION_JMPENV(cont))) {
+    if (setjmp(jmpenv)) {
         POP_EXCEPTION_CONTINUATION();
         env = Scm_ExtendEnvironment(LIST_1(var), LIST_1(exception_thrown_obj), env);
         return guard_handle_clauses(clauses, env);