[uim-commit] r2140 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-14 07:12:28 -0800 (Mon, 14 Nov 2005)
New Revision: 2140

Modified:
   branches/r5rs/sigscheme/main.c
   branches/r5rs/sigscheme/operations-new-srfi34.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/sigscheme.h
  - (Scm_use, Scm_Use): Rename Scm_use to Scm_Use
* sigscheme/sigscheme.c
  - (Scm_use, Scm_Use): Ditto
* sigscheme/operations-new-srfi34.c
  - (SigScm_Initialize_SRFI34): Follow the renaming
* sigscheme/main.c
  - (main): Ditto


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-11-14 14:16:52 UTC (rev 2139)
+++ branches/r5rs/sigscheme/main.c	2005-11-14 15:12:28 UTC (rev 2140)
@@ -168,7 +168,7 @@
     SigScm_Initialize();
 
 #if SCM_USE_SRFI34
-    Scm_use("srfi-34");
+    Scm_Use("srfi-34");
 #endif
 
     SigScm_GC_Protect(&feature_id_siod);

Modified: branches/r5rs/sigscheme/operations-new-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-new-srfi34.c	2005-11-14 14:16:52 UTC (rev 2139)
+++ branches/r5rs/sigscheme/operations-new-srfi34.c	2005-11-14 15:12:28 UTC (rev 2140)
@@ -122,7 +122,7 @@
 {
     ScmObj *const *var;
 
-    Scm_use("srfi-23");
+    Scm_Use("srfi-23");
 
     /* protect global variables */
     for (var = &global_var_list[0]; *var; var++) {

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-11-14 14:16:52 UTC (rev 2139)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-11-14 15:12:28 UTC (rev 2140)
@@ -212,7 +212,7 @@
                          SCM_SYMBOL_VCELL(Scm_Intern(sym)));
 }
 
-int Scm_use(const char *feature)
+int Scm_Use(const char *feature)
 {
     ScmObj ok;
     SCM_ASSERT(feature);

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-11-14 14:16:52 UTC (rev 2139)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-11-14 15:12:28 UTC (rev 2140)
@@ -233,7 +233,7 @@
 void SigScm_Initialize(void);
 void SigScm_Finalize(void);
 void Scm_DefineAlias(const char *newsym, const char *sym);
-int  Scm_use(const char *feature);
+int  Scm_Use(const char *feature);
 ScmObj ScmExp_use(ScmObj feature, ScmObj env);
 ScmObj Scm_eval_c_string(const char *exp);
 #if SCM_COMPAT_SIOD