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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-11 16:16:49 -0800 (Fri, 11 Nov 2005)
New Revision: 2118

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_cond): Fix unhandled eval_state->ret_type


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-11-11 18:38:36 UTC (rev 2117)
+++ branches/r5rs/sigscheme/eval.c	2005-11-12 00:16:49 UTC (rev 2118)
@@ -975,10 +975,12 @@
              * result.
              */
             if (NULLP(exps)) {
-                if (EQ(test, SYM_ELSE))
+                if (EQ(test, SYM_ELSE)) {
                     ERR_OBJ("bad clause: else with no expressions", clause);
-                else
+                } else {
+                    eval_state->ret_type = SCM_RETTYPE_AS_IS;
                     return test;
+                }
             }
 
             /*
@@ -995,6 +997,7 @@
                 if (!PROCEDUREP(proc))
                     ERR_OBJ("exp after => must be the procedure but got", proc);
 
+                eval_state->ret_type = SCM_RETTYPE_AS_IS;
                 return Scm_call(proc, LIST_1(test));
             }