TextScript, CombineTextScript: use aligned_on_parent

[lilypond.git] / lily / music-function-scheme.cc

diff --git a/lily/music-function-scheme.cc b/lily/music-function-scheme.cc
index 93c7e0fbc4773cbc121ca45779b1c71db26c8c96..e9e9a68ec6f696859e3c66e3e3fe2dd778cc50e2 100644 (file)
--- a/lily/music-function-scheme.cc
+++ b/lily/music-function-scheme.cc
@@ -13,7 +13,16 @@ LY_DEFINE (ly_music_function_extract, "ly:music-function-extract", 1, 0, 0,
 {
   LY_ASSERT_TYPE (is_music_function, x, 1);
 
-  return SCM_CELL_OBJECT_1 (x);
+  return get_music_function_transform (x);
+}
+
+LY_DEFINE (ly_music_function_signature, "ly:music-function-signature", 1, 0, 0,
+           (SCM x),
+           "Return the function signature inside@tie{}@var{x}.")
+{
+  LY_ASSERT_TYPE (is_music_function, x, 1);
+
+  return get_music_function_signature (x);
 }
 
 LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
@@ -41,4 +50,3 @@ LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
 
   return make_music_function (signature, func);
 }
-