[uim-commit] r1224 - branches/r5rs/uim

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-18 09:53:18 -0700 (Thu, 18 Aug 2005)
New Revision: 1224

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_quote): added temporal solution code. MUST fix ScmOp_quote function.


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-08-18 15:53:49 UTC (rev 1223)
+++ branches/r5rs/uim/uim-scm.c	2005-08-18 16:53:18 UTC (rev 1224)
@@ -322,8 +322,10 @@
 uim_lisp
 uim_scm_quote(uim_lisp obj)
 {
-  int flag;
-  return (uim_lisp)ScmOp_quote(Scm_NewCons((ScmObj)obj, SigScm_nil), &SigScm_nil, &flag);
+  /* TODO : fixme Kazuki Ohta <mover at hct.zaq.ne.jp> */
+  return (uim_lisp)Scm_NewCons(SigScm_quote,
+			       Scm_NewCons((ScmObj)obj,
+					   SigScm_nil));
 }
 #endif  /* UIM_SCM_EXTENDED_API */