Author: iratqq
Date: Fri Feb 20 05:13:20 2009
New Revision: 5863
Modified:
trunk/scm/ajax-ime.scm
Log:
* scm/ajax-ime.scm (ajax-ime-conversion):
- Avoid crash with errors of (fetch).
Modified: trunk/scm/ajax-ime.scm
==============================================================================
--- trunk/scm/ajax-ime.scm (original)
+++ trunk/scm/ajax-ime.scm Fri Feb 20 05:13:20 2009
@@ -117,7 +117,11 @@
proxy))
(euc-str (icovn-convert "EUC-JP" "UTF-8" utf8-str)))
euc-str))
- (ajax-ime-parse (fetch (make-query))))
+
+ (let ((ret (fetch (make-query))))
+ (if ret
+ (ajax-ime-parse (fetch (make-query)))
+ '(""))))
(define (ajax-ime-lib-init)
#t)
