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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-26 17:07:05 -0700 (Mon, 26 Sep 2005)
New Revision: 1596

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmOp_eval): Remove broken multiple values handling based on the
    patch by Jun Inoue posted in [Anthy-dev 2441]. Thanks


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-09-26 22:32:33 UTC (rev 1595)
+++ branches/r5rs/sigscheme/eval.c	2005-09-27 00:07:05 UTC (rev 1596)
@@ -521,18 +521,7 @@
         obj = call(CAR(obj), CDR(obj), &state, 0);
         if (state.ret_type == SCM_RETTYPE_NEED_EVAL)
             goto eval_loop;
-        ret = obj;
-#if SCM_STRICT_R5RS
-        if (!VALUEPACKETP(obj))
-#endif
-            break;
-
-    case ScmValuePacket:
-#if SCM_STRICT_R5RS
-        SigScm_ErrorObj("a continuation expecting 1 value got: ", obj);
-#endif
-        /* Otherwise fallthrough. */
-
+        /* FALLTHROUGH */
     default:
         ret = obj;
         break;