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

yamaken at freedesktop.org yamaken at freedesktop.org
Thu Nov 3 06:08:19 PST 2005


Author: yamaken
Date: 2005-11-03 06:08:13 -0800 (Thu, 03 Nov 2005)
New Revision: 1975

Modified:
   branches/r5rs/sigscheme/storage.c
Log:
* sigscheme/storage.c
  - (SigScm_null_cell, SigScm_true_cell, SigScm_false_cell,
    SigScm_eof_cell, SigScm_unbound_cell, SigScm_undef_cell): Rename
    to *_cell
  - (null_cell, true_cell, false_cell, eof_cell, unbound_cell,
    undef_cell): Renamed from SigScm_*_cell
  - (initialize_special_constants): Follow the renamings


Modified: branches/r5rs/sigscheme/storage.c
===================================================================
--- branches/r5rs/sigscheme/storage.c	2005-11-03 13:57:11 UTC (rev 1974)
+++ branches/r5rs/sigscheme/storage.c	2005-11-03 14:08:13 UTC (rev 1975)
@@ -77,8 +77,8 @@
 /* constants */
 ScmObj SigScm_null, SigScm_true, SigScm_false, SigScm_eof;
 ScmObj SigScm_unbound, SigScm_undef;
-static ScmCell SigScm_null_cell, SigScm_true_cell, SigScm_false_cell, SigScm_eof_cell;
-static ScmCell SigScm_unbound_cell, SigScm_undef_cell;
+static ScmCell null_cell, true_cell, false_cell, eof_cell;
+static ScmCell unbound_cell, undef_cell;
 
 /* storage-continuation.c */
 extern ScmObj scm_current_dynamic_extent;
@@ -133,12 +133,12 @@
  */
 static void initialize_special_constants(void)
 {
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_null,    SigScm_null_cell);
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_true,    SigScm_true_cell);
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_false,   SigScm_false_cell);
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_eof,     SigScm_eof_cell);
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_unbound, SigScm_unbound_cell);
-    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_undef,   SigScm_undef_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_null,    null_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_true,    true_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_false,   false_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_eof,     eof_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_unbound, unbound_cell);
+    SCM_CONSTANT_BIND_SUBSTANCE(SigScm_undef,   undef_cell);
 #if SCM_COMPAT_SIOD_BUGS
     SigScm_false = SigScm_null;
 #endif



More information about the uim-commit mailing list