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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-13 08:05:33 -0800 (Sun, 13 Nov 2005)
New Revision: 2129

Modified:
   branches/r5rs/sigscheme/operations-new-srfi34.c
Log:
* sigscheme/operations-new-srfi34.c
  - (global_var_list): Add const qualifier
  - (SigScm_Initialize_SRFI34): Follow the type change


Modified: branches/r5rs/sigscheme/operations-new-srfi34.c
===================================================================
--- branches/r5rs/sigscheme/operations-new-srfi34.c	2005-11-13 16:00:38 UTC (rev 2128)
+++ branches/r5rs/sigscheme/operations-new-srfi34.c	2005-11-13 16:05:33 UTC (rev 2129)
@@ -86,7 +86,7 @@
 static ScmObj syn_guard_internal, syn_guard_handler, syn_guard_handler_body;
 static ScmObj syn_guard_body;
 
-static ScmObj *global_var_list[] = {
+static ScmObj *const global_var_list[] = {
     &current_exception_handlers,
     &errmsg_unhandled_exception, &errmsg_handler_returned,
     &sym_error, &sym_raise,
@@ -115,7 +115,7 @@
 =======================================*/
 void SigScm_Initialize_SRFI34(void)
 {
-    ScmObj **var;
+    ScmObj *const *var;
 
     Scm_use("srfi-23");