[uim-commit] r210 - trunk/uim

[ekato@freedesktop.org]

Author: ekato
Date: 2005-01-09 21:11:35 -0800 (Sun, 09 Jan 2005)
New Revision: 210

Modified:
   trunk/uim/uim-compat-scm.c
   trunk/uim/uim-compat-scm.h
   trunk/uim/uim-scm.c
   trunk/uim/uim-scm.h
Log:
* uim/uim-scm.c : Move uim_scm_reverse() from uim-compat-scm.c
  since reverse() is in r5rs.  Please revert this change if it
  is not appropriate, yamaken.
* uim/uim-scm.h : Moved from uim-compat-scm.h.
* uim/uim-compat-scm.c : Remove uim_scm_reverse().
* uim/uim-compat-scm.h : Ditto.


Modified: trunk/uim/uim-compat-scm.c
===================================================================
--- trunk/uim/uim-compat-scm.c	2005-01-10 05:02:00 UTC (rev 209)
+++ trunk/uim/uim-compat-scm.c	2005-01-10 05:11:35 UTC (rev 210)
@@ -223,12 +223,6 @@
 }
 
 uim_lisp
-uim_scm_reverse(uim_lisp cell)
-{
-  return (uim_lisp)reverse((LISP)cell);
-}
-
-uim_lisp
 uim_scm_nreverse(uim_lisp cell)
 {
   return (uim_lisp)nreverse((LISP)cell);

Modified: trunk/uim/uim-compat-scm.h
===================================================================
--- trunk/uim/uim-compat-scm.h	2005-01-10 05:02:00 UTC (rev 209)
+++ trunk/uim/uim-compat-scm.h	2005-01-10 05:11:35 UTC (rev 210)
@@ -99,8 +99,6 @@
 uim_lisp
 uim_scm_list5(uim_lisp elm1, uim_lisp elm2, uim_lisp elm3, uim_lisp elm4,
               uim_lisp elm5);
-uim_lisp
-uim_scm_reverse(uim_lisp cell);
 
 uim_lisp
 uim_scm_nreverse(uim_lisp cell);

Modified: trunk/uim/uim-scm.c
===================================================================
--- trunk/uim/uim-scm.c	2005-01-10 05:02:00 UTC (rev 209)
+++ trunk/uim/uim-scm.c	2005-01-10 05:11:35 UTC (rev 210)
@@ -355,6 +355,12 @@
   return (uim_lisp)cons((LISP)car, (LISP)cdr);
 }
 
+uim_lisp
+uim_scm_reverse(uim_lisp cell)
+{
+  return (uim_lisp)reverse((LISP)cell);
+}
+
 uim_bool
 uim_scm_require_file(const char *fn)
 {

Modified: trunk/uim/uim-scm.h
===================================================================
--- trunk/uim/uim-scm.h	2005-01-10 05:02:00 UTC (rev 209)
+++ trunk/uim/uim-scm.h	2005-01-10 05:11:35 UTC (rev 210)
@@ -191,6 +191,8 @@
 uim_scm_cdar(uim_lisp cell);
 uim_lisp
 uim_scm_cddr(uim_lisp cell);
+uim_lisp
+uim_scm_reverse(uim_lisp cell);
 
 #ifdef __cplusplus
 }