Implement ly:book? and ly:context-def? predicates

diff --git a/lily/book-scheme.cc b/lily/book-scheme.cc
index 39ad1181b6eeb099ad5bbab3376c26ca011f0d1d..7f1026a3e79239c83a95c6144c47427adda4f5f1 100644 (file)
--- a/lily/book-scheme.cc
+++ b/lily/book-scheme.cc
@@ -164,3 +164,7 @@ LY_DEFINE (ly_book_scores, "ly:book-scores",
   Book *b = unsmob_book (book);
   return b->scores_;
 }
+
+#include "ly-smobs.icc"
+
+IMPLEMENT_TYPE_P (Book, "ly:book?");

diff --git a/lily/context-def.cc b/lily/context-def.cc
index 00b10f9616904e6e42e14f92e5af62fffefc064f..1bea3ea4403c33abb7f6b6e1bc81bc625fffb894 100644 (file)
--- a/lily/context-def.cc
+++ b/lily/context-def.cc
@@ -349,3 +349,6 @@ Context_def::to_alist () const
   return ell;
 }
 
+#include "ly-smobs.icc"
+
+IMPLEMENT_TYPE_P (Context_def, "ly:context-def?");

diff --git a/scm/lily.scm b/scm/lily.scm
index ab9e73dbf0b7e5500b025246db806d15d3e362f3..0c20c148b20a5ec56066379eaee887eeab20bf8b 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -510,8 +510,10 @@ messages into errors.")
     ))
 
 (define-public lilypond-exported-predicates
-  `((,ly:box? . "box")
+  `((,ly:book? . "book")
+    (,ly:box? . "box")
     (,ly:context? . "context")
+    (,ly:context-def? . "context definition")
     (,ly:context-mod? . "context modification")
     (,ly:dimension? . "dimension, in staff space")
     (,ly:dir? . "direction")