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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-02 13:42:19 -0700 (Sun, 02 Oct 2005)
New Revision: 1748

Modified:
   branches/r5rs/sigscheme/datas.c
Log:
* sigscheme/datas.c
  - (finalize_protected_var): Clear the protected variables
  - (finalize_continuation_env): Remove variable cleanup


Modified: branches/r5rs/sigscheme/datas.c
===================================================================
--- branches/r5rs/sigscheme/datas.c	2005-10-02 20:29:50 UTC (rev 1747)
+++ branches/r5rs/sigscheme/datas.c	2005-10-02 20:42:19 UTC (rev 1748)
@@ -456,6 +456,7 @@
     gc_protected_var *item = protected_var_list;
     gc_protected_var *tmp  = NULL;
     while (item) {
+        *item->var = NULL;
         tmp  = item;
         item = item->next_var;
         free(tmp);
@@ -885,8 +886,6 @@
 
 static void finalize_continuation_env(void)
 {
-    continuation_thrown_obj = NULL;
-    continuation_stack = NULL;
 }
 
 static void continuation_stack_push(ScmObj cont)