mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Change guild --help' and --version' output to be more GNUish.

Browse source 
* meta/guild.in (display-version): Display the version, not the
  effective version.

* module/scripts/help.scm (list-commands)[help]: Add proper footer, as
  per the GCS.
This commit is contained in:
Ludovic Courtès 2011-07-23 22:43:08 +02:00
parent 8698e81007
commit 0d2e3fc1e7
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
meta/guild.in
View file

@ -39,8 +39,8 @@ exec guile $GUILE_FLAGS -e '(@@ (guild) main)' -s "$0" "$@"
(version (single-char #\v)))) (version (single-char #\v))))
(define (display-version) (define (display-version)
(version-etc "GNU Guile" (version-etc "@PACKAGE_NAME@"
(effective-version) (version)
#:command-name "guild" #:command-name "guild"
#:license *LGPLv3+*)) #:license *LGPLv3+*))

14
module/scripts/help.scm
View file

@ -85,10 +85,7 @@
(define (list-commands all?) (define (list-commands all?)
(display "\ (display "\
Usage: guild COMMAND [ARGS] Usage: guild COMMAND [ARGS]
Run command-line scripts provided by GNU Guile and related programs.
guild runs command-line scripts provided by GNU Guile and related
programs. See \"Using Guile Tools\" in the Guile manual, for more
information.
Commands: Commands:
") ")
@ -107,9 +104,14 @@ Commands:
(format #t " ~A ~23t~a\n" name summary) (format #t " ~A ~23t~a\n" name summary)
(format #t " ~A\n" name))))) (format #t " ~A\n" name)))))
(find-submodules '(scripts))) (find-submodules '(scripts)))
(display " (format #t "
For help on a specific command, try \"guild help COMMAND\". For help on a specific command, try \"guild help COMMAND\".
"))
Report guild bugs to ~a
GNU Guile home page: <http://www.gnu.org/software/guile/>
General help using GNU software: <http://www.gnu.org/gethelp/>
For complete documentation, run: info guile 'Using Guile Tools'
" %guile-bug-report-address))
(define (module-commentary mod) (define (module-commentary mod)
(file-commentary (file-commentary