The Lambda Lab
/
projects
/
scratchy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c5e4ec4
)
Added missing newlines to usage message.
author
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 18 Jun 2019 09:13:57 +0000
(11:13 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 18 Jun 2019 09:16:25 +0000
(11:16 +0200)
scratchy.scm
patch
|
blob
|
history
diff --git
a/scratchy.scm
b/scratchy.scm
index
df538b4
..
0bc9a6a
100644
(file)
--- a/
scratchy.scm
+++ b/
scratchy.scm
@@
-314,12
+314,12
@@
progname " -h/--help\n"
progname " [-n/--no-footer] [-u/--user UID] [-g/--group GID] root-dir hostname [port]\n"
"\n"
progname " -h/--help\n"
progname " [-n/--no-footer] [-u/--user UID] [-g/--group GID] root-dir hostname [port]\n"
"\n"
- "The -n option tells the server to not display a directory footer."
- "The -u and -g can be used to set the UID and GID of the process following"
+ "The -n option tells the server to not display a directory footer.
\n
"
+ "The -u and -g can be used to set the UID and GID of the process following
\n
"
"the creation of the TCP port listener (which often requires root)."))
(define (main)
"the creation of the TCP port listener (which often requires root)."))
(define (main)
- (let* ((progname (
car (argv
)))
+ (let* ((progname (
pathname-file (car (argv)
)))
(config (make-config '() '() 70 #t '() '())))
(if (null? (cdr (argv)))
(print-usage progname)
(config (make-config '() '() 70 #t '() '())))
(if (null? (cdr (argv)))
(print-usage progname)