X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpitch.cc;h=ee03ac44d8db2e53a782e0732acb766e23b6914a;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=14151783725519e4c8170f4bb51e712ca78c648a;hpb=0c14539bc83d6bb405141b6f21430b33d1e8fcf0;p=lilypond.git diff --git a/lily/pitch.cc b/lily/pitch.cc index 1415178372..ee03ac44d8 100644 --- a/lily/pitch.cc +++ b/lily/pitch.cc @@ -218,16 +218,16 @@ Pitch::down_to (int notename) notename_ = notename; } -const char Pitch::type_p_name_[] = "ly:pitch?"; +const char * const Pitch::type_p_name_ = "ly:pitch?"; SCM -Pitch::mark_smob () +Pitch::mark_smob () const { return scale_->self_scm (); } int -Pitch::print_smob (SCM port, scm_print_state *) +Pitch::print_smob (SCM port, scm_print_state *) const { scm_puts ("# (a); + Pitch *q = unsmob (b); bool eq = p->notename_ == q->notename_ && p->octave_ == q->octave_