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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-05 20:43:22 -0700 (Wed, 05 Oct 2005)
New Revision: 1818

Modified:
   branches/r5rs/sigscheme/error.c
   branches/r5rs/sigscheme/io.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/error.c
  - (scm_current_error_port): Move to io.c since the port itself is
    considered that OWNED by io module. The error module USES it
* io.c
  - (scm_current_error_port): Moved from error.c
* sigscheme/sigschemeinternal.h
  - (scm_current_error_port): Move subsection


Modified: branches/r5rs/sigscheme/error.c
===================================================================
--- branches/r5rs/sigscheme/error.c	2005-10-06 03:37:28 UTC (rev 1817)
+++ branches/r5rs/sigscheme/error.c	2005-10-06 03:43:22 UTC (rev 1818)
@@ -58,7 +58,6 @@
 /*=======================================
   Variable Declarations
 =======================================*/
-ScmObj scm_current_error_port  = NULL;
 
 /*=======================================
   File Local Function Declarations

Modified: branches/r5rs/sigscheme/io.c
===================================================================
--- branches/r5rs/sigscheme/io.c	2005-10-06 03:37:28 UTC (rev 1817)
+++ branches/r5rs/sigscheme/io.c	2005-10-06 03:43:22 UTC (rev 1818)
@@ -55,6 +55,7 @@
 =======================================*/
 ScmObj scm_current_input_port   = NULL;
 ScmObj scm_current_output_port  = NULL;
+ScmObj scm_current_error_port  = NULL;
 
 ScmObj SigScm_features      = NULL;
 

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-06 03:37:28 UTC (rev 1817)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-06 03:43:22 UTC (rev 1818)
@@ -63,12 +63,10 @@
 /* eval.c */
 extern struct trace_frame *scm_trace_root;
 
-/* error.c*/
-extern ScmObj scm_current_error_port;
-
 /* io.c */
 extern ScmObj scm_current_input_port;
 extern ScmObj scm_current_output_port;
+extern ScmObj scm_current_error_port;
 extern ScmObj SigScm_features;
 
 /* datas.c */