ref: e9403e777a6fddcd5b496e57d739327eb76c7890
parent: c00462f5113944f00820efd86b826d970d0e718c
author: Matthew Flatt <mflatt@racket-lang.org>
date: Tue Nov 15 03:02:26 CST 2022
zuo/cmdline: fix help output to include flag arguments
--- a/lib/zuo/private/cmdline-run.zuo
+++ b/lib/zuo/private/cmdline-run.zuo
@@ -125,7 +125,9 @@
[(eq? key next-key) "|"]
[else " "])
" "
- (string-join flags ", ")))
+ (string-join flags ", ")
+ (if (null? (car spec)) "" " ")
+ (string-join (car spec))))
(let loop ([text text])
(when (pair? text)
(displayln (~a (cond