[uim-commit] r3003 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-27 03:06:32 -0800 (Fri, 27 Jan 2006)
New Revision: 3003

Modified:
   branches/r5rs/sigscheme/src/config.h
   branches/r5rs/sigscheme/src/operations-srfi1.c
Log:
* sigscheme/src/config.h
  - (SCM_USE_SRFI1):
    * Disable by default
    * Mark broken
* sigscheme/src/operations-srfi1.c
  - (scm_p_srfi1_list_copy):
    * Mark broken
    * Comment out the code


Modified: branches/r5rs/sigscheme/src/config.h
===================================================================
--- branches/r5rs/sigscheme/src/config.h	2006-01-27 09:50:26 UTC (rev 3002)
+++ branches/r5rs/sigscheme/src/config.h	2006-01-27 11:06:32 UTC (rev 3003)
@@ -44,7 +44,7 @@
 #define SCM_USE_DEEP_CADRS      1  /* use all c[ad]+r defined in R5RS */
 #define SCM_USE_NONSTD_FEATURES 1  /* use Non-R5RS standard features such as "require" */
 
-#define SCM_USE_SRFI1           1  /* use SRFI-1  list library */
+#define SCM_USE_SRFI1           0  /* use SRFI-1  list library (broken) */
 #define SCM_USE_SRFI2           1  /* use SRFI-2  'and-let*' */
 #define SCM_USE_SRFI6           1  /* use SRFI-6  basic string ports */
 #define SCM_USE_SRFI8           1  /* use SRFI-8  'receive' */

Modified: branches/r5rs/sigscheme/src/operations-srfi1.c
===================================================================
--- branches/r5rs/sigscheme/src/operations-srfi1.c	2006-01-27 09:50:26 UTC (rev 3002)
+++ branches/r5rs/sigscheme/src/operations-srfi1.c	2006-01-27 11:06:32 UTC (rev 3003)
@@ -32,6 +32,13 @@
  *  SUCH DAMAGE.
 ===========================================================================*/
 
+/*
+ * Do not use this implementation for production code.
+ *
+ * This SRFI-1 implementation is still broken, and not using the SigScheme's
+ * safe and simple coding elements.
+ */
+
 /*=======================================
   System Include
 =======================================*/
@@ -160,9 +167,12 @@
     return head;
 }
 
+/* FIXME: SRFI-1 list-copy is a shallow copy */
 ScmObj
 scm_p_srfi1_list_copy(ScmObj lst)
 {
+    /* broken */
+#if 0
     ScmObj head = SCM_NULL;
     ScmObj tail = SCM_FALSE;
     ScmObj obj  = SCM_FALSE;
@@ -190,6 +200,7 @@
     }
 
     return head;
+#endif
 }
 
 ScmObj