(if (memq (ly:get-option 'backend) music-string-to-path-backends)
(ly:set-option 'music-strings-to-paths #t))
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public _ ly:gettext))
+(define-public _ gettext)
(define-public (ly:load x)
(let* ((file-name (%search-load-path x)))
(lily)
)
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public (_ x) x))
+(define-public _ gettext)
(define PLATFORM
(string->symbol
(format #f "~a/share/lilypond/~a"
prefix TOPLEVEL-VERSION))))
-
-
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public (_ x) x))
+(define-public _ gettext)
(define (show-version port)
(format port "~a (GNU LilyPond) ~a\n" PROGRAM-NAME TOPLEVEL-VERSION))