[uim-commit] r1235 - branches/r5rs/sigscheme
yamaken at freedesktop.org
yamaken at freedesktop.org
Fri Aug 19 20:25:03 EST 2005
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;
More information about the uim-commit
mailing list