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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-26 20:53:56 -0700 (Mon, 26 Sep 2005)
New Revision: 1609

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-compat-scm.c
  - (uim_scm_nreverse): Return dummy result

* uim/uim-scm.c
  - (uim_scm_apply): Add lacking cast


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-09-27 03:41:36 UTC (rev 1608)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-09-27 03:53:56 UTC (rev 1609)
@@ -285,6 +285,7 @@
 uim_scm_nreverse(uim_lisp cell)
 {
   fprintf(stderr, "uim_scm_nreverse : not implemented yet.\n");
+  return uim_scm_null_list();
 #if 0
   return (uim_lisp)nreverse((uim_lisp)cell);
 #endif

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-09-27 03:41:36 UTC (rev 1608)
+++ branches/r5rs/uim/uim-scm.c	2005-09-27 03:53:56 UTC (rev 1609)
@@ -472,7 +472,7 @@
 uim_lisp
 uim_scm_apply(uim_lisp proc, uim_lisp args)
 {
-  return (uim_lisp)Scm_call(proc, Scm_NewCons((ScmObj)args, SCM_NULL));
+  return (uim_lisp)Scm_call((ScmObj)proc, Scm_NewCons((ScmObj)args, SCM_NULL));
 }
 #endif  /* UIM_SCM_EXTENDED_API */