Revision: a0dcfd872482 Author: KIHARA Hideto <[email protected]> Date: Wed May 2 16:08:48 2012 Log: Fix error when bushu.help file does not exist.
* scm/tutcode-bushu.scm - (tutcode-bushu-help-load): Add check of file-readable? http://code.google.com/p/uim/source/detail?r=a0dcfd872482 Modified: /scm/tutcode-bushu.scm ======================================= --- /scm/tutcode-bushu.scm Tue May 1 01:46:53 2012 +++ /scm/tutcode-bushu.scm Wed May 2 16:08:48 2012 @@ -615,15 +615,17 @@ (list rule rev) (list rule)))))) lcomps)))) - (call-with-input-file tutcode-bushu-help-filename - (lambda (port) - (let loop ((line (read-line port)) - (rules ())) - (if (or (not line) - (eof-object? line)) - rules - (loop (read-line port) - (append! rules (parse line)))))))) + (and + (file-readable? tutcode-bushu-help-filename) + (call-with-input-file tutcode-bushu-help-filename + (lambda (port) + (let loop ((line (read-line port)) + (rules ())) + (if (or (not line) + (eof-object? line)) + rules + (loop (read-line port) + (append! rules (parse line))))))))) ;;; bushu.help¥Õ¥¡¥¤¥ë¤Ë´ð¤Å¤¯Éô¼ó¹çÀ®¤ò¹Ô¤¦
