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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-02 15:04:30 -0700 (Sun, 02 Oct 2005)
New Revision: 1750

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_call_with_values): Add assertions


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-10-02 21:47:48 UTC (rev 1749)
+++ branches/r5rs/sigscheme/operations.c	2005-10-02 22:04:30 UTC (rev 1750)
@@ -1820,6 +1820,9 @@
     ScmObj vals;
     DECLARE_FUNCTION("call-with-values", ProcedureFixedTailRec2);
 
+    ASSERT_PROCEDUREP(producer);
+    ASSERT_PROCEDUREP(consumer);
+
     vals = Scm_call(producer, SCM_NULL);
 
 #if SCM_USE_VALUECONS