mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 23:20:32 +02:00
Code Activity

Merge remote-tracking branch 'origin/stable-2.0'

Browse source
This commit is contained in:
Mark H Weaver 2012-11-08 21:57:33 -05:00
commit db1f46667c
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)))))