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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-25 04:46:28 -0700 (Sun, 25 Sep 2005)
New Revision: 1581

Modified:
   branches/r5rs/sigscheme/sigscheme.c
Log:
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Resurrect SIOD-compatible '='
    predicate


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-25 11:43:52 UTC (rev 1580)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-25 11:46:28 UTC (rev 1581)
@@ -410,10 +410,7 @@
     Scm_RegisterFunc1("symbol-bound?"        , ScmOp_symbol_boundp);
     Scm_RegisterFunc1("symbol-value"         , ScmOp_symbol_value);
     Scm_RegisterFunc2("set-symbol-value!"    , ScmOp_set_symbol_value);
-#if 0
-    /*SCM_COMPAT_SIOD_BUGS*/
-    /* Is this necessary? This procedure's functionality is a full
-       subset of what's specified by R5RS.  */
+#if SCM_COMPAT_SIOD_BUGS
     Scm_RegisterFunc2("="                    , ScmOp_siod_eql);
 #endif
     SCM_DEFINE_ALIAS("bit-and"               , "logand");