X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fkey-signature-interface.cc;h=79e2bd99482d25b8e5eb1fb10e9fb1ce2255cae7;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=89695f7c5f6d39247ee95e6011bbfae41f908019;hpb=958e95822083954cad00e0a598eb9f12ceba67b9;p=lilypond.git diff --git a/lily/key-signature-interface.cc b/lily/key-signature-interface.cc index 89695f7c5f..79e2bd9948 100644 --- a/lily/key-signature-interface.cc +++ b/lily/key-signature-interface.cc @@ -27,11 +27,11 @@ #include "output-def.hh" #include "staff-symbol-referencer.hh" #include "rational.hh" +#include "lily-imports.hh" struct Key_signature_interface { DECLARE_SCHEME_CALLBACK (print, (SCM)); - DECLARE_GROB_INTERFACE (); }; /* @@ -87,11 +87,10 @@ Key_signature_interface::print (SCM smob) me->warning (_ ("alteration not found")); else { - SCM proc = ly_lily_module_constant ("key-signature-interface::alteration-positions"); - pos.set_empty (); Stencil column; - for (SCM pos_list = scm_call_3 (proc, scm_car (s), c0s, smob); + for (SCM pos_list = Lily::key_signature_interface_alteration_positions + (scm_car (s), c0s, smob); scm_is_pair (pos_list); pos_list = scm_cdr (pos_list)) { int p = scm_to_int (scm_car (pos_list)); @@ -137,4 +136,5 @@ ADD_INTERFACE (Key_signature_interface, "sharp-positions " "padding " "padding-pairs " + "non-default " );