Revision: 6682
Author: ek.kato
Date: Wed Aug 4 23:36:19 2010
Log: * scm/util.scm
- (try-load)
- (try-require)
- Fix bug which was introduced in r6603.
http://code.google.com/p/uim/source/detail?r=6682
Modified:
/trunk/scm/util.scm
=======================================
--- /trunk/scm/util.scm Tue Jul 27 22:09:43 2010
+++ /trunk/scm/util.scm Wed Aug 4 23:36:19 2010
@@ -268,7 +268,8 @@
(if (file-readable? path)
(load path)
(if (not (null? rest))
- (loop (car rest) (cdr rest)))))))))
+ (loop (car rest) (cdr rest))
+ #f)))))))
;; TODO: write test
;; returns succeeded or not
@@ -283,7 +284,8 @@
(if (file-readable? path)
(require path)
(if (not (null? rest))
- (loop (car rest) (cdr rest)))))))))
+ (loop (car rest) (cdr rest))
+ #f)))))))
;; used for dynamic environment substitution of closure
(define %%enclose-another-env
