From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.bugs Subject: bug#10938: patch Date: Mon, 05 Mar 2012 17:59:33 +0100 Message-ID: <87y5rfhtl6.fsf@gnu.org> References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1330966863 8423 80.91.229.3 (5 Mar 2012 17:01:03 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 5 Mar 2012 17:01:03 +0000 (UTC) Cc: 10938@debbugs.gnu.org To: Stefan Israelsson Tampe Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Mar 05 18:01:02 2012 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1S4bHQ-0006Mx-B4 for guile-bugs@m.gmane.org; Mon, 05 Mar 2012 18:01:00 +0100 Original-Received: from localhost ([::1]:43942 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1S4bHP-0008Pk-FN for guile-bugs@m.gmane.org; Mon, 05 Mar 2012 12:00:59 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:50337) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1S4bHI-00085j-8p for bug-guile@gnu.org; Mon, 05 Mar 2012 12:00:56 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1S4bHB-0001iz-1e for bug-guile@gnu.org; Mon, 05 Mar 2012 12:00:51 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:55783) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1S4bHA-0001ij-Mu for bug-guile@gnu.org; Mon, 05 Mar 2012 12:00:44 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1S4bHS-00066u-3g for bug-guile@gnu.org; Mon, 05 Mar 2012 12:01:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 05 Mar 2012 17:01:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10938 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 10938-submit@debbugs.gnu.org id=B10938.133096683623454 (code B ref 10938); Mon, 05 Mar 2012 17:01:02 +0000 Original-Received: (at 10938) by debbugs.gnu.org; 5 Mar 2012 17:00:36 +0000 Original-Received: from localhost ([127.0.0.1]:34382 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1S4bH1-000664-Ji for submit@debbugs.gnu.org; Mon, 05 Mar 2012 12:00:36 -0500 Original-Received: from xanadu.aquilenet.fr ([88.191.123.111]:41163) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1S4bGp-00065i-VZ for 10938@debbugs.gnu.org; Mon, 05 Mar 2012 12:00:24 -0500 Original-Received: from localhost (xanadu.aquilenet.fr [127.0.0.1]) by xanadu.aquilenet.fr (Postfix) with ESMTP id 392C07240; Mon, 5 Mar 2012 17:59:34 +0100 (CET) Original-Received: from xanadu.aquilenet.fr ([127.0.0.1]) by localhost (xanadu.aquilenet.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id xzmjsWVbWkfB; Mon, 5 Mar 2012 17:59:34 +0100 (CET) Original-Received: from pluto (unknown [193.50.110.167]) by xanadu.aquilenet.fr (Postfix) with ESMTPSA id DF102723F; Mon, 5 Mar 2012 17:59:33 +0100 (CET) X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 16 =?UTF-8?Q?Vent=C3=B4se?= an 220 de la =?UTF-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0xEA52ECF4 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 83C4 F8E5 10A3 3B4C 5BEA D15D 77DD 95E2 EA52 ECF4 X-OS: x86_64-unknown-linux-gnu In-Reply-To: (Stefan Israelsson Tampe's message of "Sun, 4 Mar 2012 13:23:58 +0100") User-Agent: Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.93 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:6246 Archived-At: Hi Stefan, Stefan Israelsson Tampe skribis: > diff --git a/module/ice-9/session.scm b/module/ice-9/session.scm > index fbb03d2..dc2c927 100644 > --- a/module/ice-9/session.scm > +++ b/module/ice-9/session.scm > @@ -504,13 +504,14 @@ It is an image under the mapping EXTRACT." > if the information cannot be obtained. >=20=20 > The alist keys that are currently defined are `required', `optional', > -`keyword', and `rest'." > +`keyword', allow-other-keys? and `rest'." > (cond > ((procedure-property proc 'arglist) > =3D> (lambda (arglist) > `((required . ,(car arglist)) > (optional . ,(cadr arglist)) > (keyword . ,(caddr arglist)) > + (allow-other-keys? . ,(cadddr arglist)) > (rest . ,(car (cddddr arglist)))))) > ((procedure-source proc) > =3D> cadr) Can you provide one or more test cases that illustrate that this patch fixes? Also, please send your patch in =E2=80=98git format-patch=E2=80=99 format. Thanks, Ludo=E2=80=99.