diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:34 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-01 21:43:34 +0200 |
commit | e4e96add67f3417e1cb0c1df4491506158f10eb9 (patch) | |
tree | 645e443c61ca3a8d808d9f846a636ad572183c90 /module/util/options.scm | |
parent | Break text procedures into modules. (diff) | |
download | calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.gz calp-e4e96add67f3417e1cb0c1df4491506158f10eb9.tar.xz |
Minor output changes.
Diffstat (limited to '')
-rw-r--r-- | module/util/options.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/util/options.scm b/module/util/options.scm index 41514a8f..d829dc6f 100644 --- a/module/util/options.scm +++ b/module/util/options.scm @@ -26,9 +26,9 @@ (let ((name (car option-line)) (args (cdr option-line))) (let ((valuefmt (case (and=> (assoc-ref args 'value) car) - [(#t) '("=" (i value))] + [(#t) '(" " (i value))] [(#f) '()] - [else => (lambda (s) `("[=" (i ,s) "]"))]))) + [else => (lambda (s) `(" [" (i ,s) "]"))]))) `(*TOP* (b "--" ,name) ,@valuefmt ,@(awhen (assoc-ref args 'single-char) `("," (ws) |