"Render at higher resolution (using given factor)
and scale down result to prevent jaggies in
PNG images.")
+ (aux-files #t
+"Create .tex, .texi, .count files in the
+EPS backend.")
(backend ps
"Select backend. Possible values: 'eps, 'null,
'ps, 'scm, 'socket, 'svg.")
(if (ly:get-option 'trace-scheme-coverage)
(coverage:enable))
-(if (ly:get-option 'warning-as-error)
- (begin
- (set! ly:warning ly:error)
- (set! ly:programming-error ly:error)))
-
(define-public parser #f)
(stats (gc-stats)))
(list (- (+ (tms:cutime t)
(tms:utime t))
- (ly:assoc-get 'gc-time-taken stats))
- (ly:assoc-get 'total-cells-allocated stats 0))))
+ (assoc-get 'gc-time-taken stats))
+ (assoc-get 'total-cells-allocated stats 0))))
(define (dump-profile base last this)
(let* ((outname (format "~a.profile" (dir-basename base ".ly")))
(format "~a ~a ~a\n"
gc-protect-stat-count
sym
- (let ((sym-stat (assoc sym stats)))
- (if sym-stat
- (cdr sym-stat)
- "?")))
+ (assoc-get sym stats "?"))
+
outfile))
'(protected-objects bytes-malloced cell-heap-size)))
(set! gc-dumping #f)