Revision: 6379
Author: ek.kato
Date: Fri May 7 02:17:54 2010
Log: * scm/plugin.scm
- (require-module) : Enable scheme only personal module.
- (module-load) : Don't return #t when loading scheme file is
invalid.
http://code.google.com/p/uim/source/detail?r=6379
Modified:
/trunk/scm/plugin.scm
=======================================
--- /trunk/scm/plugin.scm Thu May 6 09:38:31 2010
+++ /trunk/scm/plugin.scm Fri May 7 02:17:54 2010
@@ -60,7 +60,9 @@
(lambda (module-name)
(set! currently-loading-module-name module-name)
(let ((succeeded (or (module-load module-name)
- (try-require (string-append module-name ".scm")))))
+ (try-require (find-module-scm-path
+ uim-plugin-scm-load-path
+ module-name)))))
(set! currently-loading-module-name #f)
succeeded)))
@@ -140,6 +142,6 @@
(let ((scm-path (find-module-scm-path
uim-plugin-scm-load-path module-name)))
(if (string? scm-path)
- (try-require scm-path))
- #t)
+ (try-require scm-path)
+ #t))
#f)))
