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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-02 07:56:23 -0800 (Mon, 02 Jan 2006)
New Revision: 2730

Modified:
   branches/r5rs/uim/uim-scm.c
   branches/r5rs/uim/uim-scm.h
Log:
* uim/uim-scm.h
  - (uim_scm_apply): Removed to make syncing with trunk easy
* uim/uim-scm.c
  - (uim_scm_apply): Ditto


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2006-01-02 15:31:27 UTC (rev 2729)
+++ branches/r5rs/uim/uim-scm.c	2006-01-02 15:56:23 UTC (rev 2730)
@@ -426,15 +426,7 @@
   return ret;
 }
 
-#ifdef UIM_SCM_EXTENDED_API
 uim_lisp
-uim_scm_apply(uim_lisp proc, uim_lisp args)
-{
-  return (uim_lisp)scm_call((ScmObj)proc, SCM_CONS((ScmObj)args, SCM_NULL));
-}
-#endif  /* UIM_SCM_EXTENDED_API */
-
-uim_lisp
 uim_scm_eval_c_string(const char *str)
 #if UIM_SCM_GCC4_READY_GC
 {

Modified: branches/r5rs/uim/uim-scm.h
===================================================================
--- branches/r5rs/uim/uim-scm.h	2006-01-02 15:31:27 UTC (rev 2729)
+++ branches/r5rs/uim/uim-scm.h	2006-01-02 15:56:23 UTC (rev 2730)
@@ -176,12 +176,7 @@
 uim_scm_require_file(const char *fn);
 uim_lisp
 uim_scm_eval(uim_lisp obj);
-#ifdef UIM_SCM_EXTENDED_API
 uim_lisp
-uim_scm_apply(uim_lisp proc, uim_lisp args);
-#endif  /* UIM_SCM_EXTENDED_API */
-
-uim_lisp
 uim_scm_eval_c_string(const char *str);
 uim_lisp
 uim_scm_return_value(void);