release: 1.3.7

[lilypond.git] / lily / lily-guile.cc

diff --git a/lily/lily-guile.cc b/lily/lily-guile.cc
index 20f470b0bd274d327e7327f067516a6140150333..c88ba15d4869158c0572a3193962e4c21fae8573 100644 (file)
--- a/lily/lily-guile.cc
+++ b/lily/lily-guile.cc
@@ -96,7 +96,15 @@ ly_parse_scm (char const* s, int* n)
 SCM
 ly_quote_scm (SCM s)
 {
+#if 0
+  /*
+    This internal quote symbol breaks list->string and display,
+    and thus scm output.
+   */
   return scm_m_quote (scm_cons2 (SCM_EOL, s, SCM_EOL) ,SCM_EOL);
+#else
+  return gh_list (ly_symbol2scm ("quote"), s, SCM_UNDEFINED);
+#endif
 }