-typedef void (*Void_fptr) ();
-Array<Void_fptr> *scm_init_funcs_;
-
-void add_scm_init_func (void (*f) ())
-{
- if (!scm_init_funcs_)
- scm_init_funcs_ = new Array<Void_fptr>;
-
- scm_init_funcs_->push (f);
-}
-
-#if KPATHSEA
-extern "C" {
- void initialize_kpathsea ();
-}
-#endif
-
-void
-ly_init_ly_module (void *)
-{
- for (int i = scm_init_funcs_->size (); i--;)
- (scm_init_funcs_->elem (i)) ();
-
- if (be_verbose_global)
- progress_indication ("\n");
-
-#if KPATHSEA
- if (is_TeX_format_global)
- initialize_kpathsea ();
-#endif
-
- scm_primitive_load_path (scm_makfrom0str ("lily.scm"));
-}
-
-SCM global_lily_module;
-
-void
-ly_c_init_guile ()
-{
- global_lily_module = scm_c_define_module ("lily", ly_init_ly_module, 0);
- scm_c_use_module ("lily");
-}