guile-devel
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]