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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-03 00:51:04 -0700 (Mon, 03 Oct 2005)
New Revision: 1755

Modified:
   branches/r5rs/sigscheme/operations-srfi34.c
Log:
* sigscheme/operations-srfi34.c
  - (ScmOp_SRFI34_raise): fix invalid jmp_buf pointer handling


Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 02:56:06 UTC (rev 1754)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 07:51:04 UTC (rev 1755)
@@ -211,11 +211,14 @@
 
 ScmObj ScmOp_SRFI34_raise(ScmObj obj)
 {
+    jmp_buf *env;
     DECLARE_FUNCTION("raise", ProcedureFixed1);
 
     exception_thrown_obj = obj;
-    longjmp(CONTINUATION_JMPENV(CURRENT_EXCEPTION_CONTINUATION()), 1);
 
+    env = CONTINUATION_JMPENV(CURRENT_EXCEPTION_CONTINUATION());
+    longjmp(*env, 1);
+
     /* never reaches here */
     return SCM_UNDEF;
 }