[uim-commit] r963 - branches/uim-0.4.7/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-07-09 19:38:23 -0700 (Sat, 09 Jul 2005)
New Revision: 963

Modified:
   branches/uim-0.4.7/scm/anthy.scm
Log:
* scm/anthy.scm (anthy-release-handler) : Port r962 from trunk.


Modified: branches/uim-0.4.7/scm/anthy.scm
===================================================================
--- branches/uim-0.4.7/scm/anthy.scm	2005-07-10 02:35:39 UTC (rev 962)
+++ branches/uim-0.4.7/scm/anthy.scm	2005-07-10 02:38:23 UTC (rev 963)
@@ -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)