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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-02 14:47:48 -0700 (Sun, 02 Oct 2005)
New Revision: 1749

Modified:
   branches/r5rs/sigscheme/operations-srfi34.c
Log:
* sigscheme/operations-srfi34.c
  - Add some FIXME comments. Please fix it. I'll prepare other
    facilities to run the feature with the new continuation API


Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-10-02 20:42:19 UTC (rev 1748)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-10-02 21:47:48 UTC (rev 1749)
@@ -80,6 +80,9 @@
 /*=======================================
   Function Implementations
 =======================================*/
+/* FIXME:
+ * - Insert new DECLARE_FUNCTION and ASSERT_*P macros
+ */
 ScmObj ScmOp_SRFI34_with_exception_handler(ScmObj handler, ScmObj thunk)
 {
     ScmObj ret  = SCM_FALSE;
@@ -102,6 +105,11 @@
     return ret;
 }
 
+/* FIXME:
+ * - Change type to ProcedureVariadicTailRec1
+ * - Simplify with new DECLARE_FUNCTION and POP_ARG macros
+ * - Insert new ASSERT_*P macros
+ */
 ScmObj ScmOp_SRFI34_guard(ScmObj args, ScmEvalState *eval_state)
 {
     /* (guard (var clauses) body) */
@@ -129,10 +137,8 @@
     return ret;
 }
 
-/*
- * FIXME: following else handlings
- * - depending on its own true value
- * - can appeared in other than last clause
+/* FIXME:
+ * - Simplify with ScmExp_cond()
  */
 static ScmObj guard_handle_clauses(ScmObj clauses, ScmEvalState *eval_state)
 {
@@ -194,6 +200,10 @@
     return SCM_UNDEF;  
 }
 
+/* FIXME:
+ * - Rewrite with Scm_CallContinuation()
+ * - Insert DECLARE_FUNCTION
+ */
 ScmObj ScmOp_SRFI34_raise(ScmObj obj)
 {
     exception_thrown_obj = obj;