[uim commit] r4687 - sigscheme-trunk/src

[codesite-noreply]

Author: yamakenz
Date: Tue Jul 10 07:14:40 2007
New Revision: 4687

Modified:
   sigscheme-trunk/src/module-srfi1.c
   sigscheme-trunk/src/sigscheme.c

Log:
* src/sigscheme.c
  - (scm_initialize_internal):
    * Make sigscheme-init.scm optional
    * Replace scm_require() with scm_load() to reduce feature dependency
* src/module-srfi1.c
  - (scm_initialize_srfi1): Ditto


Modified: sigscheme-trunk/src/module-srfi1.c
==============================================================================
--- sigscheme-trunk/src/module-srfi1.c  (original)
+++ sigscheme-trunk/src/module-srfi1.c  Tue Jul 10 07:14:40 2007
@@ -69,7 +69,7 @@
 SCM_EXPORT void
 scm_initialize_srfi1(void)
 {
-    scm_require(SCM_PREPEND_SCMLIBDIR("srfi-1.scm"));
+    scm_load(SCM_PREPEND_SCMLIBDIR("srfi-1.scm"));
 
     scm_define_alias("srfi-1:for-each", "for-each");
     scm_define_alias("srfi-1:member",   "member");

Modified: sigscheme-trunk/src/sigscheme.c
==============================================================================
--- sigscheme-trunk/src/sigscheme.c     (original)
+++ sigscheme-trunk/src/sigscheme.c     Tue Jul 10 07:14:40 2007
@@ -338,8 +338,10 @@
     if (SCM_PTR_BITS == 64)
         scm_provide(CONST_STRING("64bit-addr"));
 
+#if SCM_USE_LOAD
     /* Load additional procedures written in Scheme */
-    scm_require(SCM_PREPEND_SCMLIBDIR("sigscheme-init.scm"));
+    scm_load(SCM_PREPEND_SCMLIBDIR("sigscheme-init.scm"));
+#endif
 
     return NULL;
 }