Give command names less room in help output

So far no command name has gone beyond 15 characters, and the purge help
text was 2 characters too wide.
This commit is contained in:
Tom Willemse 2013-11-12 00:54:13 +01:00
parent d1245a3d7f
commit 0272a7d17e

View file

@ -95,7 +95,7 @@ COMMAND."
(newline)
(for-each
(lambda (cmd)
(format #t " ~a~20t~a~%" (car cmd) (assq-ref cmd #:usage)))
(format #t " ~a~15t~a~%" (car cmd) (assq-ref cmd #:usage)))
command-list))))
(define (known? repo)