(Introduction): new node.

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

diff --git a/lily/paper-def.cc b/lily/paper-def.cc
index 99e371a9999f306c8ef8ffdfbb9e6fca100cd50e..144a944a6121768ca2a02524d10167271e39ccea 100644 (file)
--- a/lily/paper-def.cc
+++ b/lily/paper-def.cc
@@ -151,3 +151,13 @@ unsmob_paper (SCM x)
   return dynamic_cast<Paper_def*> (unsmob_music_output_def (x));
 }
   
+
+LY_DEFINE (ly_paper_def_p, "ly:paper-def?",
+          1, 0,0, (SCM def),
+          "Is @var{def} a paper definition?")
+{
+  Paper_def *op = dynamic_cast<Paper_def*> (unsmob_music_output_def (def));
+
+  bool pap = op;
+  return gh_bool2scm (pap);
+}