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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-25 05:37:38 -0700 (Sun, 25 Sep 2005)
New Revision: 1588

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/operations-srfi60.c
Log:
* sigscheme/operations-srfi60.c
  - (ScmOp_SRFI60_logand, ScmOp_SRFI60_logior, ScmOp_SRFI60_logxor):
    Add FIXME comment
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2005-09-25 12:32:15 UTC (rev 1587)
+++ branches/r5rs/sigscheme/TODO	2005-09-25 12:37:38 UTC (rev 1588)
@@ -64,6 +64,7 @@
   function and share it with ScmOp_apply()
 
 * Withdraw SCM_REDUCE*() macro
+  - Rewrite SRFI-60 procs as SCM_REDUCTION_OPERATOR function
 
 * Reorganize SCM_SHIFT*() macros and simplify args extraction codes
 

Modified: branches/r5rs/sigscheme/operations-srfi60.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi60.c	2005-09-25 12:32:15 UTC (rev 1587)
+++ branches/r5rs/sigscheme/operations-srfi60.c	2005-09-25 12:37:38 UTC (rev 1588)
@@ -66,6 +66,8 @@
 =============================================================================*/
 
 /* Bitwise Operations */
+
+/* FIXME: Rewrite as a SCM_REDUCTION_OPERATOR function */
 ScmObj ScmOp_SRFI60_logand(ScmObj args, ScmObj env)
 {
     SCM_REDUCE((accum & elm), 0, args, env,
@@ -73,6 +75,7 @@
                "logand : integer required but got ");
 }
 
+/* FIXME: Rewrite as a SCM_REDUCTION_OPERATOR function */
 ScmObj ScmOp_SRFI60_logior(ScmObj args, ScmObj env)
 {
     SCM_REDUCE((accum | elm), 0, args, env,
@@ -80,6 +83,7 @@
                "logior : integer required but got ");
 }
 
+/* FIXME: Rewrite as a SCM_REDUCTION_OPERATOR function */
 ScmObj ScmOp_SRFI60_logxor(ScmObj args, ScmObj env)
 {
     SCM_REDUCE((accum ^ elm), 0, args, env,