[uim commit] r4953 - in sigscheme-trunk: . src

[codesite-noreply]

Author: yamakenz
Date: Wed Sep 12 14:10:34 2007
New Revision: 4953

Modified:
   sigscheme-trunk/NEWS
   sigscheme-trunk/src/module-siod.c

Log:
* src/module-siod.c
  - Fix defining '=' as SIOD-compatible version regardless of
    SCM_COMPAT_SIOD_BUGS
  - (scm_p_siod_equal): Rename procedure name '=' to '%%siod='
  - (scm_initialize_siod): Define '=' as alias to '%%siod=' if and only if
    SCM_COMPAT_SIOD_BUGS
* NEWS
  - Update


Modified: sigscheme-trunk/NEWS
==============================================================================
--- sigscheme-trunk/NEWS        (original)
+++ sigscheme-trunk/NEWS        Wed Sep 12 14:10:34 2007
@@ -19,8 +19,7 @@
 
   - R5RS promises (delay and force)
 
-  - Legacy define-macro, expected to be compatible with other Scheme
-    implementations
+  - Legacy define-macro with some limitations (see spec.txt)
 
   - New syntax let-optionals* compatible with Gauche, for optional argument
     processing
@@ -107,6 +106,9 @@
     circular list (see test-misc.scm). This bug only appeared on --enable-debug
 
   - Fix reading unterminated quote as (quote #<eof>)
+
+  - [SIOD] Fix defining '=' as SIOD-compatible version regardless of
+    --enable-compat-siod-bugs
 
 * Others
 

Modified: sigscheme-trunk/src/module-siod.c
==============================================================================
--- sigscheme-trunk/src/module-siod.c   (original)
+++ sigscheme-trunk/src/module-siod.c   Wed Sep 12 14:10:34 2007
@@ -115,6 +115,10 @@
 
     scm_register_funcs(scm_functable_siod);
 
+#if SCM_COMPAT_SIOD_BUGS
+    scm_define_alias("=", "%%siod=");
+#endif
+
     scm_require_module("sscm-ext");
     scm_define_alias("the-environment", "%%current-environment");
 
@@ -177,7 +181,7 @@
 SCM_EXPORT ScmObj
 scm_p_siod_equal(ScmObj obj1, ScmObj obj2)
 {
-    DECLARE_FUNCTION("=", procedure_fixed_2);
+    DECLARE_FUNCTION("%%siod=", procedure_fixed_2);
 
     if (EQ(obj1, obj2))
         return SCM_TRUE;