(define-public (output-framework basename book scopes fields)
(let* ((filename (format "~a.svg" basename))
(outputter (ly:make-paper-outputter (open-file filename "wb")
(define-public (output-framework basename book scopes fields)
(let* ((filename (format "~a.svg" basename))
(outputter (ly:make-paper-outputter (open-file filename "wb")
- `(width . ,(format #f "~s" page-width))
- `(height . ,(format #f "~s" page-height))))
+ `(width . ,(format "~s" page-width))
+ `(height . ,(format "~s" page-height))))
(define (dump-page outputter page page-number page-count landscape? page-set?)
(define (dump str) (display str (ly:outputter-port outputter)))
(define (dump-page outputter page page-number page-count landscape? page-set?)
(define (dump str) (display str (ly:outputter-port outputter)))