From 9ce63beb6e98dfda72259406ae5a19f48cd9b6af Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 14 Nov 2004 15:33:43 +0000 Subject: [PATCH] *** empty log message *** --- lily/include/lilypond-key.hh | 6 +++--- lily/lilypond-key.cc | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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)))); } -- 2.39.5