[uim-commit] r996 - in branches/r5rs: . scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-20 23:52:26 -0700 (Wed, 20 Jul 2005)
New Revision: 996

Modified:
   branches/r5rs/
   branches/r5rs/scm/canna.scm
Log:
 r994 at t42 (orig r993):  tkng | 2005-07-21 15:17:22 +0900
 * scm/canna.scm:
  -(canna-init-handler): Connect to canna server if not connected.
 



Property changes on: branches/r5rs
___________________________________________________________________
Name: svk:merge
   - fb73e508-85ea-0310-95c3-a85c473e0941:/trunk:986
   + fb73e508-85ea-0310-95c3-a85c473e0941:/trunk:993

Modified: branches/r5rs/scm/canna.scm
===================================================================
--- branches/r5rs/scm/canna.scm	2005-07-21 06:38:05 UTC (rev 995)
+++ branches/r5rs/scm/canna.scm	2005-07-21 06:52:26 UTC (rev 996)
@@ -574,6 +574,11 @@
     (canna-flush cc))
 
 (define (canna-init-handler id im arg)
+  (if (not canna-init-lib-ok?)
+      (begin
+	(canna-lib-init canna-server-name)
+	(set! canna-init-lib-ok?)))
+
   (canna-context-new id im))
 
 (define (canna-release-handler cc)