Revision: 7238 Author: deton.kih Date: Fri Jul 22 18:32:26 2011 Log: * scm/tutcode-bushu.scm - (tutcode-bushu-help-load): Fix indent.
http://code.google.com/p/uim/source/detail?r=7238 Modified: /trunk/scm/tutcode-bushu.scm ======================================= --- /trunk/scm/tutcode-bushu.scm Tue Jul 19 03:54:31 2011 +++ /trunk/scm/tutcode-bushu.scm Fri Jul 22 18:32:26 2011 @@ -458,16 +458,16 @@ (if rev (list rule rev) (list rule))))))) - (res - (call-with-open-file-port fd - (lambda (port) - (let loop ((line (file-read-line port)) - (rules ())) - (if (or (not line) - (eof-object? line)) - rules - (loop (file-read-line port) - (append! rules (parse line))))))))) + (res + (call-with-open-file-port fd + (lambda (port) + (let loop ((line (file-read-line port)) + (rules ())) + (if (or (not line) + (eof-object? line)) + rules + (loop (file-read-line port) + (append! rules (parse line))))))))) res)) ;;; bushu.help¥Õ¥¡¥¤¥ë¤Ë´ð¤Å¤¯Éô¼ó¹çÀ®¤ò¹Ô¤¦
