From 09814b549186893c265bcdf835edbe242f6354cf Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Sun, 26 Feb 2012 11:23:39 +0100
Subject: [PATCH] Implement ly:book? and ly:context-def? predicates

---
 lily/book-scheme.cc | 4 ++++
 lily/context-def.cc | 3 +++
 scm/lily.scm        | 4 +++-
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lily/book-scheme.cc b/lily/book-scheme.cc
index 39ad1181b6..7f1026a3e7 100644
--- 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 00b10f9616..1bea3ea440 100644
--- 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 ab9e73dbf0..0c20c148b2 100644
--- 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")
-- 
2.39.5