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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-23 05:26:15 -0700 (Fri, 23 Sep 2005)
New Revision: 1552

Modified:
   branches/r5rs/sigscheme/io.c
Log:
* sigscheme/io.c
  - (SigScm_load_internal): Fix the memory leak again


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-09-23 12:20:48 UTC (rev 1551)
+++ branches/r5rs/sigscheme/io.c	2005-09-23 12:26:15 UTC (rev 1552)
@@ -442,17 +442,18 @@
 {
     ScmObj port         = SCM_NULL;
     ScmObj s_expression = SCM_NULL;
-    char  *filepath     = create_valid_path(c_filename);
+    ScmObj filepath     = SCM_FALSE;
+    char  *c_filepath   = create_valid_path(c_filename);
 
     /* sanity check */
-    if (!filepath)
+    if (!c_filepath)
         SigScm_Error("SigScm_load_internal : file \"%s\" not found\n",
                      c_filename);
 
     /* open port */
-    port = ScmOp_open_input_file(Scm_NewStringCopying(filepath));
-    free(filepath);
-    s_expression = SCM_NULL;
+    filepath = Scm_NewStringCopying(c_filepath);
+    free(c_filepath);
+    port = ScmOp_open_input_file(filepath);
     
     /* read & eval cycle */
     for (s_expression = SigScm_Read(port);