[uim commit] r4724 - in trunk: scm uim

[codesite-noreply]

Author: yamakenz
Date: Fri Jul 13 05:21:01 2007
New Revision: 4724

Modified:
   trunk/scm/deprecated-util.scm
   trunk/scm/ichar.scm
   trunk/scm/init.scm
   trunk/scm/uim-sh.scm
   trunk/scm/util.scm
   trunk/uim/uim-scm.c

Log:
* uim/uim-scm.c
  - (uim_scm_init): Replace scm_use() with scm_require_module()
* scm/init.scm
* scm/util.scm
* scm/deprecated-util.scm
* scm/ichar.scm
* scm/uim-sh.scm
  - Replace 'use' with 'require-extension'


Modified: trunk/scm/deprecated-util.scm
==============================================================================
--- trunk/scm/deprecated-util.scm       (original)
+++ trunk/scm/deprecated-util.scm       Fri Jul 13 05:21:01 2007
@@ -35,8 +35,7 @@
 ;;
 ;; $ egrep 
'\((string-list-concat|string-find|truncate-list|list-head|nconc|string-to-list|symbolconc|nth|nthcdr|copy-list|digit->string|puts|siod-print|print|feature\?|uim-symbol-value-str)\b'
 *.scm
 
-(use srfi-1)
-(use srfi-34)
+(require-extension (srfi 1 34))
 
 
 ;; TODO: rewrite list processing with 'string-append'

Modified: trunk/scm/ichar.scm
==============================================================================
--- trunk/scm/ichar.scm (original)
+++ trunk/scm/ichar.scm Fri Jul 13 05:21:01 2007
@@ -28,7 +28,7 @@
 ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 ;;; SUCH DAMAGE.
 
-(use srfi-60)
+(require-extension (srfi 60))
 
 
 ;;

Modified: trunk/scm/init.scm
==============================================================================
--- trunk/scm/init.scm  (original)
+++ trunk/scm/init.scm  Fri Jul 13 05:21:01 2007
@@ -34,8 +34,7 @@
 ;; configuration for special platforms such as embedded environments
 ;;   -- YamaKen 2005-01-29
 
-(use srfi-23)
-(use srfi-34)
+(require-extension (srfi 23 34))
 
 (define enable-action? #t)
 

Modified: trunk/scm/uim-sh.scm
==============================================================================
--- trunk/scm/uim-sh.scm        (original)
+++ trunk/scm/uim-sh.scm        Fri Jul 13 05:21:01 2007
@@ -30,7 +30,7 @@
 ;;; SUCH DAMAGE.
 ;;;;
 
-(use srfi-34)
+(require-extension (srfi 34))
 
 (define uim-sh-prompt "uim> ")
 (define uim-sh-opt-batch #f)

Modified: trunk/scm/util.scm
==============================================================================
--- trunk/scm/util.scm  (original)
+++ trunk/scm/util.scm  Fri Jul 13 05:21:01 2007
@@ -28,9 +28,7 @@
 ;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 ;;; SUCH DAMAGE.
 
-(use srfi-1)
-(use srfi-6)
-(use srfi-34)
+(require-extension (srfi 1 6 34))
 
 (require "ichar.scm")
 (require "deprecated-util.scm")

Modified: trunk/uim/uim-scm.c
==============================================================================
--- trunk/uim/uim-scm.c (original)
+++ trunk/uim/uim-scm.c Fri Jul 13 05:21:01 2007
@@ -1074,9 +1074,9 @@
   uim_scm_callf("provide", "s", "debug");
 #endif
 
-  scm_use("srfi-23");
-  scm_use("srfi-34");
-  scm_use("siod");
+  scm_require_module("srfi-23");
+  scm_require_module("srfi-34");
+  scm_require_module("siod");
 
   uim_scm_set_verbose_level(vlevel);
   initialized = UIM_TRUE;