Revision: 7235
Author: deton.kih
Date: Fri Jul 22 04:26:48 2011
Log: * Merge r7234 from trunk.
http://code.google.com/p/uim/source/detail?r=7235
Modified:
/branches/1.7/scm/tutcode.scm
=======================================
--- /branches/1.7/scm/tutcode.scm Tue Jul 19 03:56:15 2011
+++ /branches/1.7/scm/tutcode.scm Fri Jul 22 04:26:48 2011
@@ -4146,8 +4146,15 @@
;;; @param bushudic Éô¼ó¹çÀ®¥ê¥¹¥È
;;; @return (<Éô¼ó2> <¹çÀ®Ê¸»ú>)¤Î¥ê¥¹¥È
(define (tutcode-bushu-predict str bushudic)
+ (if (null? tutcode-bushu-help)
+ (set! tutcode-bushu-help (tutcode-bushu-help-load)))
(let*
- ((rules (rk-lib-find-partial-seqs (list str) bushudic))
+ ((rules-help
+ (if tutcode-bushu-help
+ (rk-lib-find-partial-seqs (list str) tutcode-bushu-help)
+ ()))
+ (rules-dic (rk-lib-find-partial-seqs (list str) bushudic))
+ (rules (append rules-help rules-dic)) ; ½ÅÊ£²óÈò¤Ïbushu.help¦¤Ç²Äǽ
(words1 (map (lambda (elem) (cadaar elem)) rules))
(more-cands
(filter
