mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

Fix record constructor in getopt-long.

Browse source 
* 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.
This commit is contained in:
Mark H Weaver 2012-11-08 21:53:36 -05:00
parent d9e368979b
commit fe040dd138
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/getopt-long.scm
View file

@ -175,8 +175,7 @@
(exit 1)) (exit 1))
(define-record-type option-spec (define-record-type option-spec
(%make-option-spec name value required? single-char predicate (%make-option-spec name required? option-spec->single-char predicate value-policy)
value-policy)
option-spec? option-spec?
(name (name
option-spec->name set-option-spec-name!) option-spec->name set-option-spec-name!)
@ -190,7 +189,7 @@
option-spec->value-policy set-option-spec-value-policy!)) option-spec->value-policy set-option-spec-value-policy!))
(define (make-option-spec name) (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) (define (parse-option-spec desc)
(let ((spec (make-option-spec (symbol->string (car desc))))) (let ((spec (make-option-spec (symbol->string (car desc)))))