*** empty log message ***

[lilypond.git] / lily / translator-ctors.cc

diff --git a/lily/translator-ctors.cc b/lily/translator-ctors.cc
index 783c39698b56e2328c212e982d611a0ec540c0e3..abac03a98699d3edf0124e02cd0d544b5c6540a9 100644 (file)
--- a/lily/translator-ctors.cc
+++ b/lily/translator-ctors.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "translator.hh"
@@ -38,6 +38,8 @@ add_translator (Translator *t)
 
   SCM k= ly_symbol2scm  (classname (t));
   global_translator_dict->set (k, t->self_scm ());
+
+  scm_gc_unprotect_object (t->self_scm ());
 }
 
 Translator*