[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 1/5] Fix "occurrances" typos in getopt-long code and test
From: |
Neil Jerram |
Subject: |
[PATCH 1/5] Fix "occurrances" typos in getopt-long code and test |
Date: |
Sun, 8 May 2011 23:18:13 +0100 |
* module/ice-9/getopt-long.scm (process-options, getopt-long): Change
to "occurrences".
* test-suite/tests/getopt-long.test ("multiple occurrences"): Same
again.
---
module/ice-9/getopt-long.scm | 4 ++--
test-suite/tests/getopt-long.test | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/module/ice-9/getopt-long.scm b/module/ice-9/getopt-long.scm
index 1b170b4..c3939dc 100644
--- a/module/ice-9/getopt-long.scm
+++ b/module/ice-9/getopt-long.scm
@@ -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))
diff --git a/test-suite/tests/getopt-long.test
b/test-suite/tests/getopt-long.test
index d7f5184..682763c 100644
--- a/test-suite/tests/getopt-long.test
+++ b/test-suite/tests/getopt-long.test
@@ -252,7 +252,7 @@
)
-(with-test-prefix "multiple occurrances"
+(with-test-prefix "multiple occurrences"
(define (test9 . args)
(equal? (getopt-long (cons "foo" args)
--
1.7.4.1
- [PATCH] Simplifying guile-tools, Neil Jerram, 2011/05/08
- [PATCH 3/5] Handle short option unclumping progressively, instead of all upfront, Neil Jerram, 2011/05/08
- [PATCH 2/5] Simplify getopt-long handling of option values, esp with multiple occurrences, Neil Jerram, 2011/05/08
- [PATCH 1/5] Fix "occurrances" typos in getopt-long code and test,
Neil Jerram <=
- [PATCH 4/5] Implement #:stop-at-first-non-option option for getopt-long, Neil Jerram, 2011/05/08
- [PATCH 5/5] Reveal guile-tools's inner simplicity..., Neil Jerram, 2011/05/08
- Re: [PATCH] Simplifying guile-tools, Neil Jerram, 2011/05/23