Author: iratqq Date: Sat Feb 23 01:26:35 2008 New Revision: 5238
Modified: trunk/scm/sj3.scm Log: * scm/sj3.scm (sj3-get-nr-douon): Use sj3-lib-douoncnt. Modified: trunk/scm/sj3.scm ============================================================================== --- trunk/scm/sj3.scm (original) +++ trunk/scm/sj3.scm Sat Feb 23 01:26:35 2008 @@ -73,7 +73,7 @@ (define (sj3-lib-get-nr-segments sc-ctx) (length sc-ctx)) (define (sj3-get-nr-douon str) - (length (sj3-getdouon str))) + (+ 3 (sj3-lib-douoncnt str))) ;; add hiragana, katakana, halfkana (define (sj3-lib-get-nr-candidates sc-ctx seg) (sj3-get-nr-douon (sj3-get-nth-yomi sc-ctx seg))) (define (sj3-lib-resize-segment sc seg cnt)
