From e4e96add67f3417e1cb0c1df4491506158f10eb9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 1 Jun 2020 21:43:34 +0200 Subject: Minor output changes. --- module/util/options.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/util/options.scm') 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) -- cgit v1.2.3