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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-02 17:05:48 -0700 (Sun, 02 Oct 2005)
New Revision: 1752

Modified:
   branches/r5rs/sigscheme/config.h
   branches/r5rs/sigscheme/operations-srfi34.c
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_dynamic_wind): New function. Currently only a placeholder
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Add initialization for dynamic-wind
* sigscheme/config.h
  - (SCM_USE_SRFI34): Disabled temporarily


Modified: branches/r5rs/sigscheme/config.h
===================================================================
--- branches/r5rs/sigscheme/config.h	2005-10-02 22:11:14 UTC (rev 1751)
+++ branches/r5rs/sigscheme/config.h	2005-10-03 00:05:48 UTC (rev 1752)
@@ -46,7 +46,7 @@
 #define SCM_USE_SRFI2           1  /* use SRFI-2  'and-let*' */
 #define SCM_USE_SRFI8           1  /* use SRFI-8  'receive' */
 #define SCM_USE_SRFI23          1  /* use SRFI-23 'error' */
-#define SCM_USE_SRFI34          1  /* use SRFI-34 Exception Handling for Programs */
+#define SCM_USE_SRFI34          0  /* use SRFI-34 exception handling for programs */
 #define SCM_USE_SRFI38          1  /* use SRFI-38 'write-with-shared-structure' */
 #define SCM_USE_SRFI60          1  /* use SRFI-60 integers as bits */
 

Modified: branches/r5rs/sigscheme/operations-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi34.c	2005-10-02 22:11:14 UTC (rev 1751)
+++ branches/r5rs/sigscheme/operations-srfi34.c	2005-10-03 00:05:48 UTC (rev 1752)
@@ -201,7 +201,6 @@
 }
 
 /* FIXME:
- * - Rewrite with Scm_CallContinuation()
  * - Insert DECLARE_FUNCTION
  */
 ScmObj ScmOp_SRFI34_raise(ScmObj obj)

Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-10-02 22:11:14 UTC (rev 1751)
+++ branches/r5rs/sigscheme/operations.c	2005-10-03 00:05:48 UTC (rev 1752)
@@ -1847,6 +1847,7 @@
     return Scm_tailcall(consumer, vals, eval_state);
 }
 
+/* FIXME: implement properly */
 ScmObj ScmOp_dynamic_wind(ScmObj before, ScmObj thunk, ScmObj after,
                           ScmEvalState *eval_state)
 {