From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 14 Nov 2004 15:33:43 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.5.14~563
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9ce63beb6e98dfda72259406ae5a19f48cd9b6af;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/include/lilypond-key.hh b/lily/include/lilypond-key.hh
index 0dba228d08..fe47155bf6 100644
--- 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 0cb7652413..80031c6fd3 100644
--- 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))));
 }