[uim-commit] r2141 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-14 07:13:38 -0800 (Mon, 14 Nov 2005)
New Revision: 2141

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init): Prepare SRFI-23 and SRFI-34


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-11-14 15:12:28 UTC (rev 2140)
+++ branches/r5rs/uim/uim-scm.c	2005-11-14 15:13:38 UTC (rev 2141)
@@ -603,7 +603,10 @@
   uim_scm_provide("debug");
 #endif
 
-  ScmExp_use(Scm_Intern("siod"), SCM_INTERACTION_ENV);
+  Scm_Use("srfi-23");
+  Scm_Use("srfi-34");
+  Scm_Use("siod");
+
   true_sym  = (uim_lisp)SCM_TRUE;
   false_sym = (uim_lisp)SCM_FALSE;
   protected_arg0 = uim_scm_f();