X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Flilypond-invoke-editor.scm;h=01e0408fd3e65125a20f519a0a1b804f04ef8631;hb=0394250509ea020b6c63eb752a060d8efcb7ccd5;hp=f8225db1422d7d1a0084e1ec4367c5793a85aac6;hpb=d5263207d86711fc62ff2ef359901450cfc89bfb;p=lilypond.git diff --git a/scripts/lilypond-invoke-editor.scm b/scripts/lilypond-invoke-editor.scm index f8225db142..01e0408fd3 100644 --- a/scripts/lilypond-invoke-editor.scm +++ b/scripts/lilypond-invoke-editor.scm @@ -47,12 +47,7 @@ (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))