- (set! %load-path
- (cons (string-append (getenv "LILYPOND_DATADIR") "/ly")
- (cons (string-append (getenv "LILYPOND_DATADIR") "/ps")
- %load-path)))
+ (set! %load-path
+ (cons (string-append (getenv "LILYPOND_DATADIR") "/ly")
+ (cons (string-append (getenv "LILYPOND_DATADIR") "/ps")
+ %load-path)))
(define (scm-number->string x)
(let ((e (inexact->exact x)))
(string-append (if (= e x)
(define (scm-number->string x)
(let ((e (inexact->exact x)))
(string-append (if (= e x)