From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Neil Jerram Newsgroups: gmane.lisp.guile.devel Subject: [PATCH 1/5] Fix "occurrances" typos in getopt-long code and test Date: Sun, 8 May 2011 23:18:13 +0100 Message-ID: <1304893097-10889-2-git-send-email-neil@ossau.uklinux.net> References: <1304893097-10889-1-git-send-email-neil@ossau.uklinux.net> NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1304893195 27088 80.91.229.12 (8 May 2011 22:19:55 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 8 May 2011 22:19:55 +0000 (UTC) Cc: Neil Jerram To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon May 09 00:19:50 2011 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1QJCKL-0003rk-UT for guile-devel@m.gmane.org; Mon, 09 May 2011 00:19:50 +0200 Original-Received: from localhost ([::1]:37405 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QJCKL-0000i3-8z for guile-devel@m.gmane.org; Sun, 08 May 2011 18:19:49 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:42072) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QJCKE-0000g4-EX for guile-devel@gnu.org; Sun, 08 May 2011 18:19:43 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QJCKD-0002rd-06 for guile-devel@gnu.org; Sun, 08 May 2011 18:19:42 -0400 Original-Received: from mail3.uklinux.net ([80.84.72.33]:52022) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QJCKC-0002mv-Ou for guile-devel@gnu.org; Sun, 08 May 2011 18:19:40 -0400 Original-Received: from arudy (unknown [78.149.196.143]) by mail3.uklinux.net (Postfix) with ESMTP id 962AA1F663B for ; Sun, 8 May 2011 23:18:50 +0100 (BST) Original-Received: from neil-laptop.520b.com (unknown [192.168.11.9]) by arudy (Postfix) with ESMTP id 5C51138038; Sun, 8 May 2011 23:18:37 +0100 (BST) X-Mailer: git-send-email 1.7.4.1 In-Reply-To: <1304893097-10889-1-git-send-email-neil@ossau.uklinux.net> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.4-2.6 X-Received-From: 80.84.72.33 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:12468 Archived-At: * 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