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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-08-19 03:24:10 -0700 (Fri, 19 Aug 2005)
New Revision: 1235

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_car, ScmOp_cdr): Replace /**/ added in r1234 with #ifdef
    SCM_STRICT_R5RS. This is a popular coding practice to make a
    feature easily configurable. I suggest doing so always instead of
    using /**/


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-19 09:53:30 UTC (rev 1234)
+++ branches/r5rs/sigscheme/operations.c	2005-08-19 10:24:10 UTC (rev 1235)
@@ -757,10 +757,10 @@
      * in many places. So, I decided to change ScmOp_car to SIOD like behavior.
      * 
      */
-    /*
+#ifdef SCM_STRICT_R5RS
     if (SCM_NULLP(obj))
         SigScm_Error("car : empty list\n");
-    */
+#endif
     if (SCM_NULLP(obj))
 	return SCM_NIL;
 
@@ -779,10 +779,10 @@
      * in many places. So, I decided to change ScmOp_car to SIOD like behavior.
      * 
      */
-    /*
+#ifdef SCM_STRICT_R5RS
     if (SCM_NULLP(obj))
         SigScm_Error("cdr : empty list\n");
-    */
+#endif
     if (SCM_NULLP(obj))
 	return SCM_NIL;