From ec7ea550f2acd6e7bbaf10f8e4a1e9915dc80cf8 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Sun, 8 May 2011 21:36:54 +0100 Subject: [PATCH] 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. --- 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 1b170b494..c3939dcf1 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 d7f518482..682763cb1 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)