Revision: 6683 Author: ek.kato Date: Wed Aug 4 23:43:10 2010 Log: * Merge r6682 from trunk.
http://code.google.com/p/uim/source/detail?r=6683 Modified: /branches/1.6/scm/util.scm ======================================= --- /branches/1.6/scm/util.scm Tue Jul 27 22:09:43 2010 +++ /branches/1.6/scm/util.scm Wed Aug 4 23:43:10 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
