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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-22 22:28:07 -0700 (Mon, 22 Aug 2005)
New Revision: 1289

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* Althogh some problems still remain, now I can
  input Kanji on uim-anthy!! Yey!!

* sigscheme/operations.c
  - (ScmOp_car, ScmOp_cdr): change return value



Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-08-23 03:17:28 UTC (rev 1288)
+++ branches/r5rs/sigscheme/operations.c	2005-08-23 05:28:07 UTC (rev 1289)
@@ -823,7 +823,11 @@
     else
         SigScm_ErrorObj("set-car! : pair required but got ", pair);
 
-    return SCM_TRUE;
+#if SCM_COMPAT_SIOD
+    return car;
+#else
+    return SCM_UNDEF;
+#endif
 }
 
 ScmObj ScmOp_setcdr(ScmObj pair, ScmObj cdr)
@@ -833,7 +837,11 @@
     else
         SigScm_ErrorObj("set-cdr! : pair required but got ", pair);
 
-    return SCM_TRUE;
+#if SCM_COMPAT_SIOD
+    return cdr;
+#else
+    return SCM_UNDEF;
+#endif
 }
 
 ScmObj ScmOp_caar(ScmObj pair)