mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
ui: Fix typos, 80-col & grammar in comments & docstrings.
* guix/ui.scm (load*): Fix comment line length. (leave-on-EPIPE): Fix typo in docstring. (substitutable-info): Fix typo in comment. (indented-string): Fix typo in docstring. (%package-metrics): Fix typo in comment. (run-guix): Fix grammar in docstring. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
4e3314a4c5
commit
694e10af63
1 changed files with 7 additions and 7 deletions
14
guix/ui.scm
14
guix/ui.scm
|
@ -234,8 +234,8 @@ (define tag
|
|||
|
||||
;; Give 'load' an absolute file name so that it doesn't try to
|
||||
;; search for FILE in %LOAD-PATH. Note: use 'load', not
|
||||
;; 'primitive-load', so that FILE is compiled, which then allows us
|
||||
;; to provide better error reporting with source line numbers.
|
||||
;; 'primitive-load', so that FILE is compiled, which then allows
|
||||
;; us to provide better error reporting with source line numbers.
|
||||
(load (canonicalize-path file)))
|
||||
(const #f))))))
|
||||
(lambda _
|
||||
|
@ -796,7 +796,7 @@ (define (manifest-entry-output* entry)
|
|||
(apply format #f format-string format-args))))))
|
||||
|
||||
(define-syntax-rule (leave-on-EPIPE exp ...)
|
||||
"Run EXP... in a context when EPIPE errors are caught and lead to 'exit'
|
||||
"Run EXP... in a context where EPIPE errors are caught and lead to 'exit'
|
||||
with successful exit code. This is useful when writing to the standard output
|
||||
may lead to EPIPE, because the standard output is piped through 'head' or
|
||||
similar."
|
||||
|
@ -925,7 +925,7 @@ (define inputs
|
|||
drv))
|
||||
|
||||
(define substitutable-info
|
||||
;; Call 'substitutation-oracle' upfront so we don't end up launching the
|
||||
;; Call 'substitution-oracle' upfront so we don't end up launching the
|
||||
;; substituter many times. This makes a big difference, especially when
|
||||
;; DRV is a long list as is the case with 'guix environment'.
|
||||
(if use-substitutes?
|
||||
|
@ -1251,7 +1251,7 @@ (define-syntax with-error-handling
|
|||
|
||||
(define* (indented-string str indent
|
||||
#:key (initial-indent? #t))
|
||||
"Return STR with each newline preceded by IDENT spaces. When
|
||||
"Return STR with each newline preceded by INDENT spaces. When
|
||||
INITIAL-INDENT? is true, the first line is also indented."
|
||||
(define indent-string
|
||||
(make-list indent #\space))
|
||||
|
@ -1534,7 +1534,7 @@ (define %package-metrics
|
|||
(,(lambda (package)
|
||||
(filter (lambda (output)
|
||||
(not (member output
|
||||
;; Some common outpus shared by many packages.
|
||||
;; Some common outputs shared by many packages.
|
||||
'("out" "doc" "debug" "lib" "include" "bin"))))
|
||||
(package-outputs package)))
|
||||
. 1)
|
||||
|
@ -1942,7 +1942,7 @@ (define module
|
|||
(define (run-guix . args)
|
||||
"Run the 'guix' command defined by command line ARGS.
|
||||
Unlike 'guix-main', this procedure assumes that locale, i18n support,
|
||||
and signal handling has already been set up."
|
||||
and signal handling have already been set up."
|
||||
(define option? (cut string-prefix? "-" <>))
|
||||
|
||||
;; The default %LOAD-EXTENSIONS includes the empty string, which doubles the
|
||||
|
|
Loading…
Reference in a new issue