*** empty log message ***

diff --git a/lily/include/lilypond-key.hh b/lily/include/lilypond-key.hh
index 0dba228d0898cd9675584685fbf7e7c8651f0887..fe47155bf6b1df772b6715a144d094b0a640dc04 100644 (file)
--- a/lily/include/lilypond-key.hh
+++ b/lily/include/lilypond-key.hh
@@ -23,9 +23,9 @@ class Lilypond_grob_key : public Object_key
   int disambiguation_count_;
 
 public:
-  Lilypond_grob_key(Object_key const *context,
-                   Moment start,
-                   String name, int);
+  Lilypond_grob_key (Object_key const *context,
+                    Moment start,
+                    String name, int);
 
   static Object_key *from_scheme (SCM);
 protected:

diff --git a/lily/lilypond-key.cc b/lily/lilypond-key.cc
index 0cb7652413c6699d0082ed9b8374d63b1ae9e5fe..80031c6fd341e72563e3f34109f428967b4f512c 100644 (file)
--- a/lily/lilypond-key.cc
+++ b/lily/lilypond-key.cc
@@ -78,7 +78,7 @@ Lilypond_grob_key::from_scheme (SCM a)
   return new Lilypond_grob_key (unsmob_key (scm_car (a)),
                                *unsmob_moment (scm_cadr (a)),
                                ly_scm2string  (scm_caddr (a)),
-                               scm_to_int (scm_cadddr (a)));
+                               scm_to_int  (scm_list_ref (a, scm_from_int (3))));
 }