diff options
author | Mark H Weaver <mhw@netris.org> | 2012-11-08 21:53:36 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-11-08 21:53:36 -0500 |
commit | fe040dd138500520ddfe572a238a6cf28da842c2 (patch) | |
tree | 7f060743ea30355055bab9485d9f8723069655e7 | |
parent | d9e368979bc2b8faa8859cde833b507e7eb83e7f (diff) | |
download | guile-fe040dd138500520ddfe572a238a6cf28da842c2.tar.gz |
Fix record constructor in getopt-long.
* module/ice-9/getopt-long.scm (%make-option-spec): Fix the formal
argument list to match the actual fields present.
(make-option-spec): Update to match the fixed %make-option-spec.
-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))))) |