Merge branch 'master' of git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / lily / paper-score.cc

diff --git a/lily/paper-score.cc b/lily/paper-score.cc
index f91a4cddee1deaa0ab3e2466dc5f99037c7097f7..db0258328232ee30cec1a199bd7862c0e51f8f61 100644 (file)
--- a/lily/paper-score.cc
+++ b/lily/paper-score.cc
@@ -158,3 +158,9 @@ Paper_score::get_paper_systems ()
   return paper_systems_;
 }
 
+
+Paper_score *
+unsmob_paper_score (SCM x)
+{
+  return dynamic_cast<Paper_score*> (unsmob_music_output (x));
+}