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

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-23 04:30:34 -0700 (Sat, 23 Jul 2005)
New Revision: 1013

Modified:
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
* sigscheme/io.c:
 -(SigScm_load): Filename should be copied.


Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-07-23 10:36:15 UTC (rev 1012)
+++ branches/r5rs/sigscheme/io.c	2005-07-23 11:30:34 UTC (rev 1013)
@@ -414,7 +414,7 @@
 /*===========================================================================
   R5RS : 6.6 Input and Output : 6.6.4 System Interface
 ===========================================================================*/
-ScmObj SigScm_load(char *c_filename)
+ScmObj SigScm_load(const char *c_filename)
 {
     ScmObj stack_start;
     ScmObj port         = SCM_NIL;
@@ -424,7 +424,7 @@
     stack_start_pointer = &stack_start;
 
     /* open port */
-    port = ScmOp_open_input_file(Scm_NewString(c_filename));
+    port = ScmOp_open_input_file(Scm_NewStringCopying(c_filename));
     s_expression = SCM_NIL;
 
 

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-07-23 10:36:15 UTC (rev 1012)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-07-23 11:30:34 UTC (rev 1013)
@@ -307,7 +307,7 @@
 ScmObj ScmOp_newline(ScmObj arg, ScmObj env);
 ScmObj ScmOp_write_char(ScmObj arg, ScmObj env);
 
-ScmObj SigScm_load(char *c_filename);
+ScmObj SigScm_load(const char *c_filename);
 ScmObj ScmOp_load(ScmObj filename);
 
 /* encoding.c */