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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-06 07:11:55 -0700 (Tue, 06 Sep 2005)
New Revision: 1439

Modified:
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - Refine SCM_COMPAT_SIOD dependency resolution
* sigscheme/sigscheme.c
  - (SigScm_Initialize): Make SIOD compatible "=" SCM_COMPAT_SIOD_BUGS


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-06 13:08:44 UTC (rev 1438)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-06 14:11:55 UTC (rev 1439)
@@ -361,7 +361,9 @@
     Scm_RegisterFunc1("symbol-bound?"        , ScmOp_symbol_boundp);
     Scm_RegisterFunc1("symbol-value"         , ScmOp_symbol_value);
     Scm_RegisterFunc2("set-symbol-value!"    , ScmOp_set_symbol_value);
+#if SCM_COMPAT_SIOD_BUGS
     Scm_RegisterFunc2("="                    , ScmOp_siod_eql);
+#endif
     SCM_DEFINE_ALIAS("bit-and"               , "logand");
     SCM_DEFINE_ALIAS("bit-or"                , "logior");
     SCM_DEFINE_ALIAS("bit-xor"               , "logxor");

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-09-06 13:08:44 UTC (rev 1438)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-09-06 14:11:55 UTC (rev 1439)
@@ -81,8 +81,12 @@
 
 /* dependency resolution */
 #if SCM_COMPAT_SIOD
+#undef SCM_USE_SRFI60
 #define SCM_USE_SRFI60          1
-#endif
+#else
+#undef SCM_COMPAT_SIOD_BUGS
+#define SCM_COMPAT_SIOD_BUGS    0
+#endif /* SCM_COMPAT_SIOD */
 
 int SigScm_Die(const char *msg, const char *filename, int line); /* error.c */
 #define SCM_ASSERT(cond) \