summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2012-11-08 21:53:36 -0500
committerMark H Weaver <mhw@netris.org>2012-11-08 21:53:36 -0500
commitfe040dd138500520ddfe572a238a6cf28da842c2 (patch)
tree7f060743ea30355055bab9485d9f8723069655e7
parentd9e368979bc2b8faa8859cde833b507e7eb83e7f (diff)
downloadguile-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.scm5
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)))))