diff options
-rw-r--r-- | module/ice-9/getopt-long.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm index 930ac0d88..14eaf8e23 100644 --- a/module/ice-9/getopt-long.scm +++ b/module/ice-9/getopt-long.scm @@ -175,8 +175,7 @@ (exit 1)) (define-record-type option-spec - (%make-option-spec name value required? single-char predicate - value-policy) + (%make-option-spec name required? option-spec->single-char predicate value-policy) option-spec? (name option-spec->name set-option-spec-name!) @@ -190,7 +189,7 @@ option-spec->value-policy set-option-spec-value-policy!)) (define (make-option-spec name) - (%make-option-spec name #f #f #f #f #f)) + (%make-option-spec name #f #f #f #f)) (define (parse-option-spec desc) (let ((spec (make-option-spec (symbol->string (car desc))))) |