Issue 4873/2: Give add_acknowledger SCM &, not Protected_scm &

diff --git a/lily/include/translator.icc b/lily/include/translator.icc
index 1d45061578ecc8338834c00eaf142ed36566c5d2..01fff8d7c3d06d6fdc4163ddc8606894a33092de 100644 (file)
--- a/lily/include/translator.icc
+++ b/lily/include/translator.icc
@@ -95,7 +95,7 @@
 
 void add_acknowledger (SCM ptr,
                        char const *func_name,
-                       Protected_scm &ack_hash);
+                       SCM &ack_hash);
 
 #define ADD_ACKNOWLEDGER(CLASS, NAME)                                   \
   add_acknowledger (CLASS::ack_finder<&CLASS::acknowledge_ ## NAME> (), \

diff --git a/lily/translator.cc b/lily/translator.cc
index 4a234e28172f48b4c55ceee0a0c07a82bb6cc05b..5cd42703a1d855c392f27402b7244c05da4c9182 100644 (file)
--- a/lily/translator.cc
+++ b/lily/translator.cc
@@ -232,9 +232,9 @@ Translator::print_smob (SCM port, scm_print_state *) const
 void
 add_acknowledger (SCM ptr,
                   char const *func_name,
-                  Protected_scm &ack_hash)
+                  SCM &ack_hash)
 {
-  if (SCM_UNBNDP (SCM (ack_hash)))
+  if (SCM_UNBNDP (ack_hash))
     ack_hash = Scheme_hash_table::make_smob ();
 
   string interface_name (func_name);