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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-21 03:26:29 -0700 (Sun, 21 Aug 2005)
New Revision: 1264

Modified:
   branches/r5rs/sigscheme/operations.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (SCM_COMPAT_SIOD_BUGS): New macro
* sigscheme/operations.c
  - (ScmOp_car, ScmOp_cdr): Replace #if !SCM_COMPAT_SIOD with #if
    !SCM_COMPAT_SIOD_BUGS to distinguish features and bugs


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-21 10:15:40 UTC (rev 1263)
+++ branches/r5rs/sigscheme/operations.c	2005-08-21 10:26:29 UTC (rev 1264)
@@ -734,7 +734,7 @@
      * in many places. So, I decided to change ScmOp_car to SIOD like behavior.
      * 
      */
-#if !SCM_COMPAT_SIOD
+#if !SCM_COMPAT_SIOD_BUGS
     if (SCM_NULLP(obj))
         SigScm_Error("car : empty list\n");
 #endif
@@ -756,7 +756,7 @@
      * in many places. So, I decided to change ScmOp_car to SIOD like behavior.
      * 
      */
-#if !SCM_COMPAT_SIOD
+#if !SCM_COMPAT_SIOD_BUGS
     if (SCM_NULLP(obj))
         SigScm_Error("cdr : empty list\n");
 #endif

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-08-21 10:15:40 UTC (rev 1263)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-08-21 10:26:29 UTC (rev 1264)
@@ -91,6 +91,7 @@
 #define USE_SRFI8     1
 #define SCM_USE_NONSTD_FEATURES 1
 #define SCM_COMPAT_SIOD         1
+#define SCM_COMPAT_SIOD_BUGS    1
 #define SCM_STRICT_R5RS         0
 
 #define CHECK_1_ARG(arg) \