#include "pitch.hh"
#include "ly-smobs.icc"
-SCM
-ly_deep_mus_copy (SCM m)
+
+LY_DEFINE(ly_deep_mus_copy,
+ "ly:music-deep-copy", 1,0,0, (SCM m),
+ "Copy @var{m} and all sub expressions of @var{m}")
{
if (unsmob_music (m))
{
{
}
-
Music::Music (Music const &m)
{
immutable_property_alist_ = m.immutable_property_alist_;
{
scm_puts ("#<Music ", p);
Music* m = unsmob_music (s);
- scm_puts (classname (m),p);
+ SCM nm = m->get_mus_property ("name");
+ if (gh_symbol_p (nm) || gh_string_p (nm))
+ {
+ scm_display (nm, p);
+ }
+ else
+ {
+ scm_puts (classname (m),p);
+ }
+
/*
- Printing these takes a lot of time, especially during backtraces.
+ Printing properties takes a lot of time, especially during backtraces.
For inspecting, it is better to explicitly use an inspection
function.
*/
LY_DEFINE(ly_get_mus_property,
"ly:get-mus-property", 2, 0, 0, (SCM mus, SCM sym),
- "Get the property @var{sym} of music expression @var{mus}.")
+ "Get the property @var{sym} of music expression @var{mus}.\n"
+ "If @var{sym} is undefined, return @code{'()}.\n"
+ )
{
Music * sc = unsmob_music (mus);
SCM_ASSERT_TYPE(sc, mus, SCM_ARG1, __FUNCTION__, "music");