From 2c77169856420c54e0873e1871d2e03c9ca2e7ea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 5 May 2020 20:56:19 +0200 Subject: Getopt-opt handles value being any symbol. --- module/util/options.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/module/util/options.scm b/module/util/options.scm index 87390e27..89dde42d 100644 --- a/module/util/options.scm +++ b/module/util/options.scm @@ -8,9 +8,15 @@ (define-public (getopt-opt options) (map (lambda (optline) (cons (car optline) - (lset-intersection (lambda (a b) (eqv? b (car a))) - (cdr optline) - '(single-char required? value predicate)))) + (map (lambda (opt-field) + (cons (car opt-field) + (cond [(and (eq? 'value (car opt-field)) + (symbol? (cadr opt-field))) + '(optional)] + [else (cdr opt-field)]))) + (lset-intersection (lambda (a b) (eqv? b (car a))) + (cdr optline) + '(single-char required? value predicate))))) options)) -- cgit v1.2.3