[uim-commit] r1460 - trunk/scm

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-09 04:35:32 -0700 (Fri, 09 Sep 2005)
New Revision: 1460

Modified:
   trunk/scm/uim-module-manager.scm
Log:
* scm/uim-module-manager.scm (add-modules-to-module-list) :
  Fix to use symbol->string in showing warning.


Modified: trunk/scm/uim-module-manager.scm
===================================================================
--- trunk/scm/uim-module-manager.scm	2005-09-09 05:13:22 UTC (rev 1459)
+++ trunk/scm/uim-module-manager.scm	2005-09-09 11:35:32 UTC (rev 1460)
@@ -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))