(define-public (convert-to-pdf book name)
(let* ((defs (ly:paper-book-paper book))
(papersizename (ly:output-def-lookup defs 'papersizename)))
(postscript->pdf (if (string? papersizename) papersizename "a4")
(define-public (convert-to-pdf book name)
(let* ((defs (ly:paper-book-paper book))
(papersizename (ly:output-def-lookup defs 'papersizename)))
(postscript->pdf (if (string? papersizename) papersizename "a4")