Revision: 6126 Author: iratqq Date: Fri Dec 25 09:01:03 2009 Log: * scm/sj3.scm (sj3-lib-get-nth-candidate-without-muhenkan): - Check underflow of nth.
http://code.google.com/p/uim/source/detail?r=6126 Modified: /trunk/scm/sj3.scm ======================================= --- /trunk/scm/sj3.scm Mon Dec 14 02:29:35 2009 +++ /trunk/scm/sj3.scm Fri Dec 25 09:01:03 2009 @@ -113,7 +113,8 @@ (define (sj3-lib-get-nth-candidate-without-muhenkan sc seg nth) (let* ((yomi (sj3-get-nth-yomi sc seg)) (cnt (sj3-lib-funcall sc sj3-lib-douoncnt yomi))) - (if (< nth cnt) + (if (and (< nth cnt) + (<= 0 nth)) ;; henkan (cons (sj3-lib-get-nth-candidate sc seg nth) #t) ;; muhenkan
