[uim-commit] r508 - trunk/scm

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-02-03 15:04:24 -0800 (Thu, 03 Feb 2005)
New Revision: 508

Modified:
   trunk/scm/lazy-load.scm
Log:
* scm/lazy-load.scm
  - (stub-im-generate-init-handler): Fix the broken error check
    added by previous commit


Modified: trunk/scm/lazy-load.scm
===================================================================
--- trunk/scm/lazy-load.scm	2005-02-03 21:37:59 UTC (rev 507)
+++ trunk/scm/lazy-load.scm	2005-02-03 23:04:24 UTC (rev 508)
@@ -34,13 +34,13 @@
 (define stub-im-generate-init-handler
   (lambda (name module-name)
     (lambda (id fake-im fake-arg)
-      (let ((stub-im (retrieve-im name)))
+      (let ((stub-im-init-handler (im-init-handler (retrieve-im name))))
 	(and (require-module module-name)
 	     (let* ((im (retrieve-im name))
 		    (init-handler (im-init-handler im))
 		    (arg (im-init-arg im))
 		    (context (if (not (eq? init-handler
-					   (im-init-handler stub-im)))
+					   stub-im-init-handler))
 				 (init-handler id im arg)
 				 (begin
 				   (error "stub IM actualization failed")