mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 13:00:26 +02:00
Fix "occurrances" typos in getopt-long code and test
* module/ice-9/getopt-long.scm (process-options, getopt-long): Change to "occurrences". * test-suite/tests/getopt-long.test ("multiple occurrences"): Same again.
This commit is contained in:
parent
af4081e9fd
commit
ec7ea550f2
2 changed files with 3 additions and 3 deletions
|
@ -271,7 +271,7 @@
|
|||
(define (val!loop val n-ls n-found n-etc)
|
||||
(set-option-spec-value!
|
||||
spec
|
||||
;; handle multiple occurrances
|
||||
;; handle multiple occurrences
|
||||
(cond ((option-spec->value spec)
|
||||
=> (lambda (cur)
|
||||
((if (list? cur) cons list)
|
||||
|
@ -384,7 +384,7 @@ to add a `single-char' clause to the option description."
|
|||
(map (lambda (spec)
|
||||
(let ((name (string->symbol (option-spec->name spec))))
|
||||
(cons name
|
||||
;; handle multiple occurrances
|
||||
;; handle multiple occurrences
|
||||
(let ((maybe-ls (option-spec->value spec)))
|
||||
(if (list? maybe-ls)
|
||||
(let* ((look (assq name multi-count))
|
||||
|
|
|
@ -252,7 +252,7 @@
|
|||
|
||||
)
|
||||
|
||||
(with-test-prefix "multiple occurrances"
|
||||
(with-test-prefix "multiple occurrences"
|
||||
|
||||
(define (test9 . args)
|
||||
(equal? (getopt-long (cons "foo" args)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue