From: Neil Puttock <n.puttock@gmail.com>
Date: Sun, 28 Jun 2009 16:37:01 +0000 (+0100)
Subject: Docs: (IR) Ensure all properties have type name strings.
X-Git-Tag: release/2.13.3-0~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c3d878b3fe4b0c733bcccc04b2994df0f47f78f7;p=lilypond.git

Docs: (IR) Ensure all properties have type name strings.

- add missing (type-predicate . name) pairs to type-p-name-alist
- correct predicate for 'digit-names
---

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index f95b1d20d3..fd66a4968e 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -192,7 +192,7 @@ positions.")
 More information on the allowed parameters for a grob can be found by 
 looking at the top of the Internals Reference page for each interface
 having a @code{details} property.")
-     (digit-names ,vector "Names for string finger digits.")
+     (digit-names ,vector? "Names for string finger digits.")
      (direction ,ly:dir? "If @code{side-axis} is @code{0} (or
 @code{#X}), then this property determines whether the object is placed
 @code{#LEFT}, @code{#CENTER} or @code{#RIGHT} with respect to the
diff --git a/scm/lily.scm b/scm/lily.scm
index d62c70bb0f..270ed42e1c 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -405,8 +405,8 @@ LilyPond safe mode.  The syntax is the same as `define*-public'."
 (for-each ly:load init-scheme-files)
 
 (set! type-p-name-alist
-      `((,boolean-or-symbol? . "boolean or symbol")
-	(,boolean? . "boolean")
+      `((,boolean? . "boolean")
+	(,boolean-or-symbol? . "boolean or symbol")
 	(,char? . "char")
 	(,grob-list? . "list of grobs")
 	(,hash-table? . "hash table")
@@ -417,17 +417,21 @@ LilyPond safe mode.  The syntax is the same as `define*-public'."
 	(,ly:dimension? . "dimension, in staff space")
 	(,ly:dir? . "direction")
 	(,ly:duration? . "duration")
+	(,ly:font-metric? . "font metric")
 	(,ly:grob? . "layout object")
+	(,ly:grob-array? . "array of grobs")
 	(,ly:input-location? . "input location")
 	(,ly:moment? . "moment")
 	(,ly:music? . "music")
+	(,ly:music-list? . "list of music objects")
+	(,ly:music-output? . "music output")
 	(,ly:pitch? . "pitch")
 	(,ly:translator? . "translator")
-	(,ly:font-metric? . "font metric")
 	(,ly:simple-closure? . "simple closure")
+	(,ly:skyline-pair? . "pair of skylines")
+	(,ly:stencil? . "stencil")
 	(,markup-list? . "list of markups")
 	(,markup? . "markup")
-	(,ly:music-list? . "list of music")
 	(,number-or-grob? . "number or grob")
 	(,number-or-string? . "number or string")
 	(,number-pair? . "pair of numbers")