From: David Kastrup <dak@gnu.org>
Date: Sun, 26 Feb 2012 10:23:39 +0000 (+0100)
Subject: Implement ly:book? and ly:context-def? predicates
X-Git-Tag: release/2.15.33-1~1^2^2~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=706417fa0697a658d9e85a5f6545de5b8af3b938;p=lilypond.git

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

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")