mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

14
module/scripts/help.scm
View file

@ -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: <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)
(file-commentary