[uim-commit] r1886 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-26 13:06:09 -0700 (Wed, 26 Oct 2005)
New Revision: 1886

Modified:
   trunk/scm/util.scm
Log:
* scm/util.scm
  - (try-load, try-require): Add a comment about the file existence check


Modified: trunk/scm/util.scm
===================================================================
--- trunk/scm/util.scm	2005-10-26 20:02:16 UTC (rev 1885)
+++ trunk/scm/util.scm	2005-10-26 20:06:09 UTC (rev 1886)
@@ -586,6 +586,7 @@
 ;; returns succeeded or not
 (define try-load
   (lambda (file)
+    ;; to suppress error message, check file existence first
     (and (file-readable? (make-scm-pathname file))
 	 (not (*catch 'errobj (begin (load file)
 				     #f))))))
@@ -594,6 +595,7 @@
 ;; returns succeeded or not
 (define try-require
   (lambda (file)
+    ;; to suppress error message, check file existence first
     (and (file-readable? (make-scm-pathname file))
 	 (eq? (symbolconc '* (string->symbol file) '-loaded*)
 	      (*catch 'errobj (require file))))))