[uim-commit] r932 - trunk/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-03 04:50:43 -0700 (Sun, 03 Jul 2005)
New Revision: 932

Modified:
   trunk/scm/uim-module-manager.scm
Log:
* scm/uim-module-manager.scm:
 - (update-loader-scm): Added calling of write-loader.scm to
    update loader.scm actually.

Modified: trunk/scm/uim-module-manager.scm
===================================================================
--- trunk/scm/uim-module-manager.scm	2005-07-03 11:45:50 UTC (rev 931)
+++ trunk/scm/uim-module-manager.scm	2005-07-03 11:50:43 UTC (rev 932)
@@ -52,6 +52,8 @@
 			     (map symbol->string
 				  (remove (lambda (x) (eq? module-name x))
 					  (reverse module-list))))
+	  (update-loader-scm (remove (lambda (x) (eq? module-name x))
+				     (reverse module-list)))
 	  (puts (string-append "Module " module-name " unregistered.\n")))
 	(puts (string-append "Error to remove " module-name ". No such module.\n")))))
 
@@ -69,9 +71,8 @@
 
 
 ;; FIXME: Current implementation is heavy.
-;; Redefine register-im and then call all of modules.
 (define (update-loader-scm module-list)
   (set! installed-im-module-list (map symbol->string module-list))
-  (puts (string-join "\n" (stub-im-generate-all-stub-im-list))))
+  (write-loader.scm (string-join "\n" (stub-im-generate-all-stub-im-list))))
 
 (prealloc-heaps-for-heavy-job)