(process_acknowledged): don't create

[lilypond.git] / lily / object-key.cc

diff --git a/lily/object-key.cc b/lily/object-key.cc
index 134ff7fb232a3b757e0bc34b3306574bcf59023d..50e42027efd8ddea4048c23b5c1c113ef9885a7d 100644 (file)
--- a/lily/object-key.cc
+++ b/lily/object-key.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #include "lilypond-key.hh"
@@ -20,7 +20,6 @@ Object_key::mark_smob (SCM key)
 void
 Object_key::derived_mark () const
 {
-
 }
 
 Object_key::~Object_key ()
@@ -138,7 +137,7 @@ Copied_key::get_type () const
 int
 Copied_key::do_compare (Object_key const *key) const
 {
-  Copied_key const *other = dynamic_cast < Copied_key const *> (key);
+  Copied_key const *other = dynamic_cast<Copied_key const *> (key);
 
   int c = original_->compare (other->original_);
   if (c)
@@ -156,7 +155,9 @@ Copied_key::derived_mark () const
 SCM
 Copied_key::as_scheme () const
 {
-  return scm_list_2 (original_ ? original_->self_scm () : SCM_BOOL_F, scm_from_int (copy_count_));
+  return scm_list_2 (original_
+                    ? original_->self_scm ()
+                    : SCM_BOOL_F, scm_from_int (copy_count_));
 }
 
 Object_key *
@@ -165,3 +166,4 @@ Copied_key::from_scheme (SCM a)
   return new Copied_key (unsmob_key (scm_car (a)),
                         scm_to_int (scm_list_ref (a, scm_from_int (1))));
 }
+