Use "<path>" instead of a misleading "<file>",
improve doc line for `--collect'.
original commit: 41812ace0f
This commit is contained in:
parent
aa0d3e18ae
commit
be19dcb79d
|
@ -23,7 +23,7 @@
|
||||||
(command-line
|
(command-line
|
||||||
#:program (short-program+command-name)
|
#:program (short-program+command-name)
|
||||||
#:once-each
|
#:once-each
|
||||||
[("--collect") "Pack collections instead of files and directories"
|
[("--collect") "<path>s specify collections instead of files/dirs"
|
||||||
(collection? #t)]
|
(collection? #t)]
|
||||||
[("--plt-name") name "Set the printed <name> describing the archive"
|
[("--plt-name") name "Set the printed <name> describing the archive"
|
||||||
(plt-name name)]
|
(plt-name name)]
|
||||||
|
@ -45,8 +45,8 @@
|
||||||
#:once-each
|
#:once-each
|
||||||
[("-v") "Verbose mode"
|
[("-v") "Verbose mode"
|
||||||
(verbose #t)]
|
(verbose #t)]
|
||||||
#:args (dest-file . file)
|
#:args (dest-file . path)
|
||||||
(values dest-file file)))
|
(values dest-file path)))
|
||||||
|
|
||||||
(if (not (collection?))
|
(if (not (collection?))
|
||||||
;; Files and directories
|
;; Files and directories
|
||||||
|
|
Loading…
Reference in New Issue
Block a user