Issue 5148/1: Various chain-assoc-get -> #:properties

[lilypond.git] / ly / toc-init.ly

diff --git a/ly/toc-init.ly b/ly/toc-init.ly
index c3fd5ab57d0ab3c236728d03350c65035e316bd3..ad7c64b72c5e421876ed74796e6a9ca37ba57921 100644 (file)
--- a/ly/toc-init.ly
+++ b/ly/toc-init.ly
@@ -36,13 +36,14 @@ tocItemWithDotsMarkup = \markup \fill-with-pattern #1 #RIGHT .
   \fromproperty #'toc:text \fromproperty #'toc:page
 
 #(define-markup-list-command (table-of-contents layout props) ()
+  #:properties ((baseline-skip))
   ( _i "Outputs the table of contents, using the paper variable
 @code{tocTitleMarkup} for its title, then the list of lines
 built using the @code{tocItem} music function
 Usage: @code{\\markuplist \\table-of-contents}" )
   (cons (interpret-markup layout props
                           (ly:output-def-lookup layout 'tocTitleMarkup))
-        (space-lines (chain-assoc-get 'baseline-skip props)
+        (space-lines baseline-skip
                     (map (lambda (toc-item)
                            (let ((label (car toc-item))
                                  (toc-markup (cadr toc-item))