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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-08 10:25:41 -0800 (Tue, 08 Nov 2005)
New Revision: 2093

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_cond):
    * Cosmetic change
    * Remove comment for obvious operations


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-11-08 18:18:39 UTC (rev 2092)
+++ branches/r5rs/sigscheme/eval.c	2005-11-08 18:25:41 UTC (rev 2093)
@@ -966,23 +966,23 @@
         test = CAR(clause);
         exps = CDR(clause);
 
-        /* evaluate test */
         test = EVAL(test, env);
 
-        /* check the result */
         if (NFALSEP(test)) {
             /*
-             * if the selected <clause> contains only the <test> and no <expression>s,
-             * then the value of the <test> is returned as the result.
+             * if the selected <clause> contains only the <test> and no
+             * <expression>s, then the value of the <test> is returned as the
+             * result.
              */
             if (NULLP(exps))
                 return test;
 
             /*
-             * If the selected <clause> uses the => alternate form, then the <expression>
-             * is evaluated. Its value must be a procedure that accepts one argument;
-             * this procedure is then called on the value of the <test> and the value
-             * returned by this procedure is returned by the cond expression.
+             * If the selected <clause> uses the => alternate form, then the
+             * <expression> is evaluated. Its value must be a procedure that
+             * accepts one argument; this procedure is then called on the value
+             * of the <test> and the value returned by this procedure is
+             * returned by the cond expression.
              */
             if (EQ(SYM_YIELDS, CAR(exps)) && !NULLP(CDR(exps))) {
                 proc = EVAL(CADR(exps), env);