Revision: 7234 Author: deton.kih Date: Fri Jul 22 04:25:01 2011 Log: * scm/tutcode.scm - (tutcode-bushu-predict): Change to use bushu.help.
http://code.google.com/p/uim/source/detail?r=7234 Modified: /trunk/scm/tutcode.scm ======================================= --- /trunk/scm/tutcode.scm Tue Jul 19 03:54:31 2011 +++ /trunk/scm/tutcode.scm Fri Jul 22 04:25:01 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
