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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-01 10:16:19 -0800 (Thu, 01 Dec 2005)
New Revision: 2309

Modified:
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/main.c
  - add SCM_COMPAT_SIOD flag where "feature_id_siod" is used.


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-12-01 17:54:57 UTC (rev 2308)
+++ branches/r5rs/sigscheme/main.c	2005-12-01 18:16:19 UTC (rev 2309)
@@ -58,7 +58,9 @@
 /*=======================================
   Variable Declarations
 =======================================*/
+#if SCM_COMPAT_SIOD
 static ScmObj feature_id_siod;
+#endif
 
 /*=======================================
   File Local Function Declarations
@@ -159,8 +161,10 @@
     Scm_Use("srfi-34");
 #endif
 
+#if SCM_COMPAT_SIOD
     SigScm_GC_Protect(&feature_id_siod);
     feature_id_siod = Scm_NewImmutableStringCopying(FEATURE_ID_SIOD);
+#endif
 
     if (filename) {
         SigScm_load(filename);