Update guile interface.

[lilypond.git] / lily / pitch.cc

diff --git a/lily/pitch.cc b/lily/pitch.cc
index da3a8a01dd6f4c2f12100799137da6a19cd7f3a3..c0a24f47b2b3a0fb79b067c0deb84c7cddf2d152 100644 (file)
--- a/lily/pitch.cc
+++ b/lily/pitch.cc
@@ -245,7 +245,7 @@ Pitch::print_smob (SCM s, SCM port, scm_print_state *)
 {
   Pitch *r = (Pitch *) SCM_CELL_WORD_1 (s);
   scm_puts ("#<Pitch ", port);
-  scm_display (scm_makfrom0str (r->to_string ().c_str ()), port);
+  scm_display (ly_string2scm (r->to_string ()), port);
   scm_puts (" >", port);
   return 1;
 }