[uim-commit] r962 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-07-09 19:35:39 -0700 (Sat, 09 Jul 2005)
New Revision: 962

Modified:
   trunk/scm/anthy.scm
Log:
* scm/anthy.scm (anthy-release-handler) : Fix behavior when ac-id
  is not set (i.e. dlopen of libanthy failed).


Modified: trunk/scm/anthy.scm
===================================================================
--- trunk/scm/anthy.scm	2005-07-09 18:53:23 UTC (rev 961)
+++ trunk/scm/anthy.scm	2005-07-10 02:35:39 UTC (rev 962)
@@ -346,7 +346,8 @@
 (define anthy-release-handler
   (lambda (ac)
     (let ((ac-id (anthy-context-ac-id ac)))
-      (anthy-lib-free-context ac-id))))
+      (if (number? ac-id)
+	  (anthy-lib-free-context ac-id)))))
 
 (define anthy-flush
   (lambda (ac)