diff --git a/meta/guild.in b/meta/guild.in index be4e5b5a3..17edf6019 100755 --- a/meta/guild.in +++ b/meta/guild.in @@ -39,8 +39,8 @@ exec guile $GUILE_FLAGS -e '(@@ (guild) main)' -s "$0" "$@" (version (single-char #\v)))) (define (display-version) - (version-etc "GNU Guile" - (effective-version) + (version-etc "@PACKAGE_NAME@" + (version) #:command-name "guild" #:license *LGPLv3+*)) diff --git a/module/scripts/help.scm b/module/scripts/help.scm index e015ad532..107d39485 100644 --- a/module/scripts/help.scm +++ b/module/scripts/help.scm @@ -85,10 +85,7 @@ (define (list-commands all?) (display "\ Usage: guild COMMAND [ARGS] - - guild runs command-line scripts provided by GNU Guile and related - programs. See \"Using Guile Tools\" in the Guile manual, for more - information. +Run command-line scripts provided by GNU Guile and related programs. Commands: ") @@ -107,9 +104,14 @@ Commands: (format #t " ~A ~23t~a\n" name summary) (format #t " ~A\n" name))))) (find-submodules '(scripts))) - (display " + (format #t " For help on a specific command, try \"guild help COMMAND\". -")) + +Report guild bugs to ~a +GNU Guile home page: +General help using GNU software: +For complete documentation, run: info guile 'Using Guile Tools' +" %guile-bug-report-address)) (define (module-commentary mod) (file-commentary