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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-19 23:46:11 -0800 (Sat, 19 Nov 2005)
New Revision: 2178

Modified:
   branches/r5rs/sigscheme/storage-continuation.c
Log:
* sigscheme/storage-continuation.c
  - (Scm_CallContinuation): Add error check for multiple values. This
    make test-continuation.scm passed


Modified: branches/r5rs/sigscheme/storage-continuation.c
===================================================================
--- branches/r5rs/sigscheme/storage-continuation.c	2005-11-20 07:32:28 UTC (rev 2177)
+++ branches/r5rs/sigscheme/storage-continuation.c	2005-11-20 07:46:11 UTC (rev 2178)
@@ -313,6 +313,7 @@
 void Scm_CallContinuation(ScmObj cont, ScmObj ret)
 {
     struct continuation_frame *frame;
+    DECLARE_INTERNAL_FUNCTION("Scm_CallContinuation");
 
     frame = CONTINUATION_FRAME(cont);
 
@@ -322,6 +323,9 @@
 #endif
         )
     {
+        if (VALUEPACKETP(ret))
+            ERR_OBJ("continuations take exactly one value but got", ret);
+
         /*
          * Don't refer cont because it may already be invalidated by
          * continuation_stack_unwind().