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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-25 05:20:48 -0700 (Sun, 25 Sep 2005)
New Revision: 1585

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_and, ScmExp_or, ScmExp_begin): Add TODO comment


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-25 12:16:11 UTC (rev 1584)
+++ branches/r5rs/sigscheme/eval.c	2005-09-25 12:20:48 UTC (rev 1585)
@@ -1041,6 +1041,7 @@
     return SCM_UNDEF;
 }
 
+/* TODO: Simplify as like as ScmExp_begin() */
 ScmObj ScmExp_and(ScmObj arg, ScmEvalState *eval_state)
 {
     ScmObj env = eval_state->env;
@@ -1071,6 +1072,7 @@
     return SCM_NULL;
 }
 
+/* TODO: Simplify as like as ScmExp_begin() */
 ScmObj ScmExp_or(ScmObj arg, ScmEvalState *eval_state)
 {
     ScmObj env = eval_state->env;
@@ -1327,6 +1329,7 @@
 /*===========================================================================
   R5RS : 4.2 Derived expression types : 4.2.3 Sequencing
 ===========================================================================*/
+/* TODO: Eliminate duplicate error check codes by simplify the loop */
 ScmObj ScmExp_begin(ScmObj args, ScmEvalState *eval_state)
 {
     ScmObj env = eval_state->env;