]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/music-output-def.cc
* lily/translator-def.cc (get_translator_names): new function
[lilypond.git] / lily / music-output-def.cc
index bf037321195be66c246625e156be444083bf2e77..d13d5ec76a658c9bda95bf30eec21f4c0ed4de36 100644 (file)
@@ -73,7 +73,12 @@ Music_output_def::assign_translator (SCM transdef)
   Translator_def *tp = unsmob_translator_def (transdef);
   assert (tp);
 
-  translator_tab_->set (tp->type_name_, transdef);
+  translator_tab_->set (tp->get_context_name (), transdef);
+  
+  String nm = ly_symbol2string (tp->get_context_name ()) + "Context";
+
+
+  scm_module_define (scope_, ly_symbol2scm (nm.to_str0()), transdef);
 }
 
 /*