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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-30 17:00:40 -0700 (Fri, 30 Sep 2005)
New Revision: 1712

Modified:
   branches/r5rs/sigscheme/sigscheme.c
Log:
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Fix broken initialization of
    scm_continuation_thrown_obj


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-30 23:26:30 UTC (rev 1711)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-10-01 00:00:40 UTC (rev 1712)
@@ -90,14 +90,11 @@
                               | SigScm_PredefinedDebugCategories());
 
     /*=======================================================================
-      Externed Variable Initialization
-    =======================================================================*/
-    scm_continuation_thrown_obj = SCM_NULL;
-    SigScm_GC_Protect(&scm_continuation_thrown_obj);
-    /*=======================================================================
       Storage Initialization
     =======================================================================*/
     SigScm_InitStorage();
+    scm_continuation_thrown_obj = SCM_FALSE;
+    SigScm_GC_Protect(&scm_continuation_thrown_obj);
     /*=======================================================================
       Interned Variable Initialization
     =======================================================================*/