*** empty log message ***

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 1b423bc7c870f37f675755533f9c53ca9568adb1..3c9fe9079b1b1ac18e74a1a66613808954d2aa53 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -13,7 +13,7 @@
 #include <stdlib.h>
 #include <math.h>   /* isinf */
 #include <string.h> /* strdup, strchr */
-
+#include <ctype.h>
 
 #include "lily-proto.hh"
 
@@ -188,7 +188,7 @@ void add_scm_init_func (void (*f) ())
 
 
 void
-ly_init_ly_module (void *data)
+ly_init_ly_module (void *)
 {
   for (int i=scm_init_funcs_->size () ; i--;)
     (scm_init_funcs_->elem (i)) ();
@@ -479,6 +479,10 @@ parse_symbol_list (const char * list)
   char *orig = s;
   SCM create_list = SCM_EOL;
 
+  char * e = s + strlen (s) - 1;
+  while (e >= s && isspace (*e))
+    *e -- = 0;
+
   for (char * p = s; *p; p++)
     {
       if (*p == '\n')