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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-29 05:21:34 -0700 (Fri, 29 Jul 2005)
New Revision: 1065

Modified:
   branches/r5rs/uim/uim-compat-scm.c
   branches/r5rs/uim/uim-compat-scm.h
   branches/r5rs/uim/uim-scm.c
   branches/r5rs/uim/uim-scm.h
Log:
* uim/uim-scm.c uim/uim-scm.h uim/uim-compat-scm.c uim/uim-compat-scm.h
 -(uim_scm_quote): Moved from from uim-compat-scm to uim-scm.


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-07-29 12:18:04 UTC (rev 1064)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-07-29 12:21:34 UTC (rev 1065)
@@ -184,12 +184,6 @@
 }
 
 uim_lisp
-uim_scm_quote(uim_lisp obj)
-{
-  return uim_scm_list2(quote_sym, obj);
-}
-
-uim_lisp
 uim_scm_nth(uim_lisp n, uim_lisp lst)
 {
   uim_lisp form;

Modified: branches/r5rs/uim/uim-compat-scm.h
===================================================================
--- branches/r5rs/uim/uim-compat-scm.h	2005-07-29 12:18:04 UTC (rev 1064)
+++ branches/r5rs/uim/uim-compat-scm.h	2005-07-29 12:21:34 UTC (rev 1065)
@@ -88,8 +88,6 @@
 uim_scm_qintern_c_str(const char *str);
 
 uim_lisp
-uim_scm_quote(uim_lisp obj);
-uim_lisp
 uim_scm_nth(uim_lisp n, uim_lisp lst);
 
 uim_lisp

Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-07-29 12:18:04 UTC (rev 1064)
+++ branches/r5rs/uim/uim-scm.c	2005-07-29 12:21:34 UTC (rev 1065)
@@ -304,6 +304,12 @@
 }
 
 uim_lisp
+uim_scm_quote(uim_lisp obj)
+{
+  return ScmOp_quote(obj);
+}
+
+uim_lisp
 uim_scm_eval_c_string(const char *str)
 {
   return Scm_eval_c_string(str);

Modified: branches/r5rs/uim/uim-scm.h
===================================================================
--- branches/r5rs/uim/uim-scm.h	2005-07-29 12:18:04 UTC (rev 1064)
+++ branches/r5rs/uim/uim-scm.h	2005-07-29 12:21:34 UTC (rev 1065)
@@ -105,6 +105,11 @@
 uim_lisp
 uim_scm_eval(uim_lisp obj);
 uim_lisp
+uim_scm_apply(uim_lisp proc, uim_lisp args);
+uim_lisp
+uim_scm_quote(uim_lisp obj);
+
+uim_lisp
 uim_scm_eval_c_string(const char *str);
 uim_lisp
 uim_scm_return_value(void);
@@ -202,7 +207,6 @@
 uim_scm_length(uim_lisp list);
 uim_lisp
 uim_scm_reverse(uim_lisp cell);
-
 uim_lisp
 uim_scm_list1(uim_lisp elm1);
 uim_lisp