source file of the GNU LilyPond music typesetter
- (c) 2001--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2001--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#ifndef MUSIC_CONSTRUCTOR_HH
#define MUSIC_CONSTRUCTOR_HH
+#include "lily-guile.hh"
#include "lily-proto.hh"
#include "string.hh"
#include "global-ctor.hh"
#define ADD_MUSIC(type) \
-Music * _ ## type ## _ctor ()\
+Music * _ ## type ## _ctor (SCM init)\
{\
- return new type;\
+ return new type (init);\
}\
static void _ ## type ## _adder () {\
add_music_ctor (#type, & _ ## type ## _ctor);\
}\
ADD_SCM_INIT_FUNC( _ ## type ## _adder_prefix, _ ## type ## _adder);
-void add_music_ctor (String, Music* (*) ());
-Music*make_music (String);
+typedef Music *(*Music_ctor) (SCM);
+void add_music_ctor (String, Music_ctor);
+Music*make_music (String, SCM);