From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sat, 19 Aug 2006 23:01:16 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.10.0-2~378
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=738af5b2980529ad26c349e24e2166dcb25de2a6;hp=a260c500ba01a6ed3004cc7cf4ec4fc64fd453e7;p=lilypond.git

*** empty log message ***
---

diff --git a/lily/translator.cc b/lily/translator.cc
index e3c973ebbe..ec2b0f64a4 100644
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -253,7 +253,10 @@ add_acknowledger (Engraver_void_function_engraver_grob_info ptr,
   interface_name = replace_all (interface_name, '_', '-');
   interface_name += "-interface";
 
-  inf.symbol_ = ly_symbol2scm (interface_name.c_str ());
+  /*
+    this is only called during program init, so safe to use scm_gc_protect_object()
+  */
+  inf.symbol_ = scm_gc_protect_object (ly_symbol2scm (interface_name.c_str ()));
   ack_array->push_back (inf);
 }