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

Fix "occurrances" typos in getopt-long code and test

Browse source 
* 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:
Neil Jerram 2011-05-08 21:36:54 +01:00
parent af4081e9fd
commit ec7ea550f2
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -271,7 +271,7 @@
(define (val!loop val n-ls n-found n-etc) (define (val!loop val n-ls n-found n-etc)
(set-option-spec-value! (set-option-spec-value!
spec spec
;; handle multiple occurrances ;; handle multiple occurrences
(cond ((option-spec->value spec) (cond ((option-spec->value spec)
=> (lambda (cur) => (lambda (cur)
((if (list? cur) cons list) ((if (list? cur) cons list)
@ -384,7 +384,7 @@ to add a `single-char' clause to the option description."
(map (lambda (spec) (map (lambda (spec)
(let ((name (string->symbol (option-spec->name spec)))) (let ((name (string->symbol (option-spec->name spec))))
(cons name (cons name
;; handle multiple occurrances ;; handle multiple occurrences
(let ((maybe-ls (option-spec->value spec))) (let ((maybe-ls (option-spec->value spec)))
(if (list? maybe-ls) (if (list? maybe-ls)
(let* ((look (assq name multi-count)) (let* ((look (assq name multi-count))

2
test-suite/tests/getopt-long.test
View file

@ -252,7 +252,7 @@
) )
(with-test-prefix "multiple occurrances" (with-test-prefix "multiple occurrences"
(define (test9 . args) (define (test9 . args)
(equal? (getopt-long (cons "foo" args) (equal? (getopt-long (cons "foo" args)