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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-23 04:25:05 -0700 (Fri, 23 Sep 2005)
New Revision: 1548

Modified:
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (SigScm_null_values): New decl
* sigscheme/sigscheme.c
  - (SigScm_null_values, SigScm_null_values_impl): New variable
  - (SigScm_Initialize_internal): Add Initialization of the variables


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-09-23 11:16:40 UTC (rev 1547)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-09-23 11:25:05 UTC (rev 1548)
@@ -67,10 +67,16 @@
 ScmObj SigScm_null, SigScm_true, SigScm_false, SigScm_eof;
 ScmObj SigScm_quote, SigScm_quasiquote, SigScm_unquote, SigScm_unquote_splicing;
 ScmObj SigScm_unbound, SigScm_undef;
+#if SCM_USE_VALUECONS
+ScmObj SigScm_null_values;
+#endif
 
 static ScmObjInternal SigScm_null_impl, SigScm_true_impl, SigScm_false_impl, SigScm_eof_impl;
 static ScmObjInternal SigScm_quote_impl, SigScm_quasiquote_impl, SigScm_unquote_impl, SigScm_unquote_splicing_impl;
 static ScmObjInternal SigScm_unbound_impl, SigScm_undef_impl;
+#if SCM_USE_VALUECONS
+static ScmObj SigScm_null_values_impl;
+#endif
 
 #if SCM_COMPAT_SIOD
 extern ScmObj scm_return_value;
@@ -103,6 +109,9 @@
     SCM_ETC_SET_IMPL(SigScm_eof,              SigScm_eof_impl    );
     SCM_ETC_SET_IMPL(SigScm_unbound,          SigScm_unbound_impl);
     SCM_ETC_SET_IMPL(SigScm_undef,            SigScm_undef_impl  );
+#if SCM_USE_VALUECONS
+    SCM_ETC_SET_IMPL(SigScm_null_values,      SigScm_null_values_impl);
+#endif
 
 #if SCM_COMPAT_SIOD_BUGS
     SigScm_false = SigScm_null;

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-09-23 11:16:40 UTC (rev 1547)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-09-23 11:25:05 UTC (rev 1548)
@@ -71,7 +71,12 @@
 extern ScmObj scm_current_output_port;
 extern ScmObj SigScm_features;
 
+/* sigscheme.c */
+#if SCM_USE_VALUECONS
+extern ScmObj SigScm_null_values;
+#endif
 
+
 /*=======================================
    Macro Declarations
 =======================================*/