[uim-commit] r1439 - branches/r5rs/sigscheme
yamaken at freedesktop.org
yamaken at freedesktop.org
Tue Sep 6 07:11:58 PDT 2005
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) \
More information about the uim-commit
mailing list