X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusic-function.cc;h=f206b6b3823b7f065ab1e2c8730cc31df76d8698;hb=987ac72dd0e893792521260fec6a065d1d49c4a6;hp=85b21575761961e209a76811fae4506297940463;hpb=c324981f1598c00059ce42e3226cc2ad078a6db2;p=lilypond.git diff --git a/lily/music-function.cc b/lily/music-function.cc index 85b2157576..f206b6b382 100644 --- a/lily/music-function.cc +++ b/lily/music-function.cc @@ -22,13 +22,14 @@ #include "music.hh" #include "ly-smobs.icc" -class Musicfunction { +class Musicfunction +{ DECLARE_SIMPLE_SMOBS (Musicfunction); SCM signature_; SCM function_; public: Musicfunction (SCM signature, SCM function): - signature_(signature), function_(function) { } + signature_ (signature), function_ (function) { } SCM get_function () { return function_; } SCM get_signature () { return signature_; } }; @@ -83,6 +84,6 @@ Musicfunction::mark_smob (SCM s) { Musicfunction *p = Musicfunction::unsmob (s); scm_gc_mark (p->signature_); - ASSERT_LIVE_IS_ALLOWED (); + ASSERT_LIVE_IS_ALLOWED (s); return p->function_; }