Revision: 7239
Author: deton.kih
Date: Fri Jul 22 18:33:56 2011
Log: * Merge r7238 from trunk.
http://code.google.com/p/uim/source/detail?r=7239
Modified:
/branches/1.7/scm/tutcode-bushu.scm
=======================================
--- /branches/1.7/scm/tutcode-bushu.scm Tue Jul 19 03:56:15 2011
+++ /branches/1.7/scm/tutcode-bushu.scm Fri Jul 22 18:33:56 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¥Õ¥¡¥¤¥ë¤Ë´ð¤Å¤¯Éô¼ó¹çÀ®¤ò¹Ô¤¦
