[uim-commit] r1461 - branches/0.4/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-09 04:37:33 -0700 (Fri, 09 Sep 2005)
New Revision: 1461

Modified:
   branches/0.4/scm/uim-module-manager.scm
Log:
* scm/uim-module-manager.scm (add-modules-to-module-list) : Port r1460
  from trunk.


Modified: branches/0.4/scm/uim-module-manager.scm
===================================================================
--- branches/0.4/scm/uim-module-manager.scm	2005-09-09 11:35:32 UTC (rev 1460)
+++ branches/0.4/scm/uim-module-manager.scm	2005-09-09 11:37:33 UTC (rev 1461)
@@ -40,13 +40,15 @@
 	;; Test if the module is valid
 	(if (require-module (symbol->string module))
 	    #t
-	    (begin (puts (string-append "Warning: Module " module
+	    (begin (puts (string-append "Warning: Module "
+	    				(symbol->string module)
 					" is not a correct module.\n"))
 		   #f)))
       (remove
        (lambda (module)
 	 (if (memq module current-module-list)
-	     (begin (puts (string-append "Warning: Module " module
+	     (begin (puts (string-append "Warning: Module "
+	     				 (symbol->string module)
 					 " is already registered\n"))
 		    #t)
 	     #f))