[uim-commit] r924 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-02 21:55:53 -0700 (Sat, 02 Jul 2005)
New Revision: 924

Modified:
   trunk/scm/anthy.scm
Log:
* scm/anthy.scm: 
 -(anthy-make-whole-string, anthy-input-state-preedit): Replaced nth with list-ref.


Modified: trunk/scm/anthy.scm
===================================================================
--- trunk/scm/anthy.scm	2005-07-03 04:48:25 UTC (rev 923)
+++ trunk/scm/anthy.scm	2005-07-03 04:55:53 UTC (rev 924)
@@ -291,7 +291,7 @@
 	   (extract-kana
 	    (if (= rule anthy-input-rule-kana)
 		(lambda (entry) (car entry))
-		(lambda (entry) (nth kana entry)))))
+		(lambda (entry) (list-ref entry kana)))))
 
       (string-append
        (string-append-map-ustr-former extract-kana preconv-str)
@@ -712,7 +712,7 @@
 	   (extract-kana
 	    (if (= rule anthy-input-rule-kana)
 		(lambda (entry) (car entry))
-		(lambda (entry) (nth kana entry)))))
+		(lambda (entry) (list-ref entry kana)))))
 
       (list
        (and (not (ustr-cursor-at-beginning? preconv-str))