release: 1.3.40

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

diff --git a/lily/translation-property.cc b/lily/translation-property.cc
index 6e37d798fe8376e40914840895ce0749d585a8d1..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--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "translation-property.hh"
 #include "debug.hh"
 
-
-
 void
 Translation_property::do_print () const
 {
 #ifndef NPRINT
-  DOUT << "." << var_str_ << " = " << value_;
+  DEBUG_OUT << "." << var_str_ << " = " ;
+  if (flower_dstream && !flower_dstream->silent_b ("Translation_property"))
+    ly_display_scm (value_);
 #endif
 }