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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-23 04:29:35 -0700 (Fri, 23 Sep 2005)
New Revision: 1549

Modified:
   branches/r5rs/sigscheme/operations-srfi23.c
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (scm_return_value): Move from sigscheme.c
* sigscheme/sigscheme.c
  - (scm_return_value): Move to sigschemeinternal.h

* sigscheme/operations-srfi23.c
  - (scm_current_error_port): Remove the decl and include
    sigschemeinternal.h instead


Modified: branches/r5rs/sigscheme/operations-srfi23.c
===================================================================
--- branches/r5rs/sigscheme/operations-srfi23.c	2005-09-23 11:25:05 UTC (rev 1548)
+++ branches/r5rs/sigscheme/operations-srfi23.c	2005-09-23 11:29:35 UTC (rev 1549)
@@ -39,6 +39,7 @@
   Local Include
 =======================================*/
 #include "sigscheme.h"
+#include "sigschemeinternal.h"
 
 /*=======================================
   File Local Struct Declarations
@@ -51,7 +52,6 @@
 /*=======================================
   Variable Declarations
 =======================================*/
-extern ScmObj scm_current_error_port;
 
 /*=======================================
   File Local Function Declarations

Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-23 11:25:05 UTC (rev 1548)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-23 11:29:35 UTC (rev 1549)
@@ -78,10 +78,6 @@
 static ScmObj SigScm_null_values_impl;
 #endif
 
-#if SCM_COMPAT_SIOD
-extern ScmObj scm_return_value;
-#endif
-
 /*=======================================
   Function Implementations
 =======================================*/

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-09-23 11:25:05 UTC (rev 1548)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-09-23 11:29:35 UTC (rev 1549)
@@ -57,6 +57,9 @@
 =======================================*/
 /* datas.c */
 extern ScmObj *scm_stack_start_pointer;
+#if SCM_COMPAT_SIOD
+extern ScmObj scm_return_value;
+#endif
 
 /* error.c*/
 extern ScmObj scm_current_error_port;