release: 1.3.40

[lilypond.git] / lily / translation-property.cc

diff --git a/lily/translation-property.cc b/lily/translation-property.cc
index 483036be5010b70843235005a50b78a604633ecf..45f8de630c37dd7901d975f57d68a328febbc19a 100644 (file)
--- a/lily/translation-property.cc
+++ b/lily/translation-property.cc
@@ -3,18 +3,18 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "translation-property.hh"
 #include "debug.hh"
 
-IMPLEMENT_IS_TYPE_B1(Translation_property, Music);
-
 void
 Translation_property::do_print () const
 {
 #ifndef NPRINT
-  DOUT << "." << var_str_ << " = " << String(value_);
+  DEBUG_OUT << "." << var_str_ << " = " ;
+  if (flower_dstream && !flower_dstream->silent_b ("Translation_property"))
+    ly_display_scm (value_);
 #endif
 }