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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-09 19:59:36 -0800 (Fri, 09 Dec 2005)
New Revision: 2509

Modified:
   branches/r5rs/sigscheme/sigscheme.c
Log:
* sigscheme/sigscheme.c
  - (SigScm_Initialize, ScmExp_use, Scm_eval_c_string,
    Scm_eval_c_string_internal): Simplify


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-12-10 03:50:34 UTC (rev 2508)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-12-10 03:59:36 UTC (rev 2509)
@@ -120,7 +120,7 @@
 #if SCM_GCC4_READY_GC
     SCM_GC_PROTECTED_CALL_VOID(SigScm_Initialize_internal, ());
 #else
-    ScmObj stack_start = NULL;
+    ScmObj stack_start;
 
     SigScm_GC_ProtectStack(&stack_start);
     SigScm_Initialize_internal();
@@ -207,6 +207,7 @@
 int Scm_Use(const char *feature)
 {
     ScmObj ok;
+
     SCM_ASSERT(feature);
 
     ok = ScmExp_use(Scm_Intern(feature), SCM_INTERACTION_ENV);
@@ -227,8 +228,8 @@
  */
 ScmObj ScmExp_use(ScmObj feature, ScmObj env)
 {
-    struct module_info *mod = NULL;
-    ScmObj feature_str = SCM_FALSE;
+    struct module_info *mod;
+    ScmObj feature_str;
     DECLARE_FUNCTION("use", SyntaxFixed1);
 
     ASSERT_SYMBOLP(feature);
@@ -250,9 +251,9 @@
 ScmObj Scm_eval_c_string(const char *exp)
 {
 #if !SCM_GCC4_READY_GC
-    ScmObj stack_start = NULL;
+    ScmObj stack_start;
 #endif
-    ScmObj ret         = SCM_NULL;
+    ScmObj ret;
 
 #if SCM_GCC4_READY_GC
     SCM_GC_PROTECTED_CALL(ret, ScmObj, Scm_eval_c_string_internal, (exp));
@@ -271,8 +272,7 @@
 
 ScmObj Scm_eval_c_string_internal(const char *exp)
 {
-    ScmObj str_port    = SCM_FALSE;
-    ScmObj ret         = SCM_FALSE;
+    ScmObj str_port, ret;
     ScmBytePort *bport;
 
     bport = ScmInputStrPort_new_const(exp, NULL);
@@ -302,7 +302,7 @@
     char **argp, **rest;
     const char *encoding;
     ScmCharCodec *specified_codec;
-    ScmObj err_obj; /* dont' initialize */
+    ScmObj err_obj;
     DECLARE_INTERNAL_FUNCTION("Scm_InterpretArgv");
 
     encoding = NULL;