From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Hartwig Newsgroups: gmane.lisp.guile.bugs Subject: bug#10621: Incorrect usage of hash procedures in (ice-9 mapping) Date: Thu, 29 Nov 2012 00:32:09 +0800 Message-ID: References: <87k44do8lw.fsf@netris.org> <87pq2x201w.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary=0016e6d7854f3dc48f04cf90b5a3 X-Trace: ger.gmane.org 1354120403 24839 80.91.229.3 (28 Nov 2012 16:33:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 28 Nov 2012 16:33:23 +0000 (UTC) To: 10621@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Wed Nov 28 17:33:33 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 1TdkZm-0006HR-WA for guile-bugs@m.gmane.org; Wed, 28 Nov 2012 17:33:31 +0100 Original-Received: from localhost ([::1]:60315 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TdkZb-0002ol-Oz for guile-bugs@m.gmane.org; Wed, 28 Nov 2012 11:33:19 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:34128) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TdkZW-0002nW-7s for bug-guile@gnu.org; Wed, 28 Nov 2012 11:33:18 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TdkZQ-0004XN-D7 for bug-guile@gnu.org; Wed, 28 Nov 2012 11:33:14 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:33641) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TdkZQ-0004XG-6d for bug-guile@gnu.org; Wed, 28 Nov 2012 11:33:08 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TdkbG-00018X-A0 for bug-guile@gnu.org; Wed, 28 Nov 2012 11:35:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Daniel Hartwig Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-guile@gnu.org Resent-Date: Wed, 28 Nov 2012 16:35:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 10621 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 10621-submit@debbugs.gnu.org id=B10621.13541204484304 (code B ref 10621); Wed, 28 Nov 2012 16:35:02 +0000 Original-Received: (at 10621) by debbugs.gnu.org; 28 Nov 2012 16:34:08 +0000 Original-Received: from localhost ([127.0.0.1]:43892 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TdkaO-00017M-Bv for submit@debbugs.gnu.org; Wed, 28 Nov 2012 11:34:08 -0500 Original-Received: from mail-we0-f172.google.com ([74.125.82.172]:55436) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TdkaL-00017A-Ra for 10621@debbugs.gnu.org; Wed, 28 Nov 2012 11:34:06 -0500 Original-Received: by mail-we0-f172.google.com with SMTP id r3so3738162wey.3 for <10621@debbugs.gnu.org>; Wed, 28 Nov 2012 08:32:09 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :content-type; bh=w3Q95nAjssQ/yiF0eiILgk9flKL1QAfruelJld88kAw=; b=x4EZZLyQWZDjU0pGf8W3TG9STyCrcsVPf3J8woBPSS4HfQ7+GnqqPq7TDTuJlxUJpB 0MJ9dEmeQt1/eh4HyCf0b8lfIdJ9l6Z0O7LYerXu49ymJ6nyg641rEOsuB0YuRFmmXB+ umt7mkRkivFChKuXH8vXekJseHwwqCqwafm+GKfBYWSMATixpmFEtvlLdmG+No9U1SPk avYVKBJSB/btNjk78Os5isMIDKg9q3yAOydED123CrwgNTbile4+L4602yKJgxNAbPOJ eqtN/pt260lx6lvhMW66br0IO6MjgDD4d6ZvftN/Vka0NRboJaxqyVWH46jld0rwPAab FKHQ== Original-Received: by 10.216.90.73 with SMTP id d51mr6624295wef.188.1354120329806; Wed, 28 Nov 2012 08:32:09 -0800 (PST) Original-Received: by 10.216.192.79 with HTTP; Wed, 28 Nov 2012 08:32:09 -0800 (PST) In-Reply-To: <87pq2x201w.fsf@gmail.com> 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.x 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:6615 Archived-At: --0016e6d7854f3dc48f04cf90b5a3 Content-Type: text/plain; charset=UTF-8 On 28 November 2012 23:56, Daniel Hartwig wrote: > A short module, it is not hard to fix I was after a ten minute distraction, so tackled this. See attached. --0016e6d7854f3dc48f04cf90b5a3 Content-Type: application/octet-stream; name="0001-fix-and-update-ice-9-mapping.patch" Content-Disposition: attachment; filename="0001-fix-and-update-ice-9-mapping.patch" Content-Transfer-Encoding: base64 X-Attachment-Id: f_ha2o90960 RnJvbSAzMGE0NzIyZTQ0NTM3MzhhNDVjNmQyNjIwMWMzMzg1NmRmYjRkYWI5IE1vbiBTZXAgMTcg MDA6MDA6MDAgMjAwMQpGcm9tOiBEYW5pZWwgSGFydHdpZyA8bWFuZHlrZUBnbWFpbC5jb20+CkRh dGU6IFRodSwgMjkgTm92IDIwMTIgMDA6MTc6MjYgKzA4MDAKU3ViamVjdDogW1BBVENIXSBmaXgg YW5kIHVwZGF0ZSAoaWNlLTkgbWFwcGluZykKCiogbW9kdWxlL2ljZS05L21hcHBpbmcuc2NtICht YXBwaW5nLWNyZWF0ZS1oYW5kbGUhKTogSU5JVCBpcyByZXF1aXJlZC4KICAobWFwcGluZy1yZWYp OiBSZXdyaXRlLiAgRml4IHByb2JsZW0gd2l0aCBERkxULgogIChoYXNoLXRhYmxlLW1hcHBpbmct aG9va3MpOiBEcm9wIERFTEVURS1QUk9DLCBoYXNoLXRhYmxlIGFjY2Vzc29ycwogIG9ubHkgdXNl IEFTU09DLVBST0MuICBBZGQgSU5JVCB0byBjcmVhdGUtaGFuZGxlIGhvb2suICBVc2UgY29ycmVj dAogIGhhc2gtdGFibGUgYWNjZXNzb3JzLgogIChtYWtlLWhhc2gtdGFibGUtbWFwcGluZyk6IERy b3AgREVMRVRFLVBST0MuCiAgKGhhc2gtdGFibGUtbWFwcGluZyk6IFJld3JpdGUuICBEcm9wIERF TEVURS1QUk9DLgotLS0KIG1vZHVsZS9pY2UtOS9tYXBwaW5nLnNjbSB8ICAgNzcgKysrKysrKysr KysrKysrKysrKy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQogMSBmaWxlIGNoYW5nZWQsIDMy IGluc2VydGlvbnMoKyksIDQ1IGRlbGV0aW9ucygtKQoKZGlmZiAtLWdpdCBhL21vZHVsZS9pY2Ut OS9tYXBwaW5nLnNjbSBiL21vZHVsZS9pY2UtOS9tYXBwaW5nLnNjbQppbmRleCAyOTA3YThkLi43 NGU5OGU3IDEwMDY0NAotLS0gYS9tb2R1bGUvaWNlLTkvbWFwcGluZy5zY20KKysrIGIvbW9kdWxl L2ljZS05L21hcHBpbmcuc2NtCkBAIC01MCwxNiArNTAsMTUgQEAKIAogKGRlZmluZSAobWFwcGlu Zy1nZXQtaGFuZGxlIG1hcCBrZXkpCiAgICgobWFwcGluZy1ob29rcy1nZXQtaGFuZGxlIChtYXBw aW5nLWhvb2tzIG1hcCkpIG1hcCBrZXkpKQotKGRlZmluZSAobWFwcGluZy1jcmVhdGUtaGFuZGxl ISBtYXAga2V5IC4gb3B0cykKLSAgKGFwcGx5IChtYXBwaW5nLWhvb2tzLWNyZWF0ZS1oYW5kbGUg KG1hcHBpbmctaG9va3MgbWFwKSkgbWFwIGtleSBvcHRzKSkKKyhkZWZpbmUgKG1hcHBpbmctY3Jl YXRlLWhhbmRsZSEgbWFwIGtleSBpbml0KQorICAoKG1hcHBpbmctaG9va3MtY3JlYXRlLWhhbmRs ZSAobWFwcGluZy1ob29rcyBtYXApKSBtYXAga2V5IGluaXQpKQogKGRlZmluZSAobWFwcGluZy1y ZW1vdmUhIG1hcCBrZXkpCiAgICgobWFwcGluZy1ob29rcy1yZW1vdmUgKG1hcHBpbmctaG9va3Mg bWFwKSkgbWFwIGtleSkpCiAKLShkZWZpbmUgKG1hcHBpbmctcmVmIG1hcCBrZXkgLiBkZmx0KQor KGRlZmluZSogKG1hcHBpbmctcmVmIG1hcCBrZXkgIzpvcHRpb25hbCBkZmx0KQogICAoY29uZAot ICAgKChtYXBwaW5nLWdldC1oYW5kbGUgbWFwIGtleSkJPT4gY2RyKQotICAgKGRmbHQJCQkJPT4g Y2FyKQotICAgKGVsc2UJCQkJI2YpKSkKKyAgICgobWFwcGluZy1nZXQtaGFuZGxlIG1hcCBrZXkp ID0+IGNkcikKKyAgIChlbHNlIGRmbHQpKSkKIAogKGRlZmluZSAobWFwcGluZy1zZXQhIG1hcCBr ZXkgdmFsKQogICAoc2V0LWNkciEgKG1hcHBpbmctY3JlYXRlLWhhbmRsZSEgbWFwIGtleSAjZikg dmFsKSkKQEAgLTcwLDE4ICs2OSwxOCBAQAogICAobGV0ICgod3JhcCAobGFtYmRhIChwcm9jKSAo bGFtYmRhICgxc3QgLiByZXN0KSAoYXBwbHkgcHJvYyAobWFwcGluZy1kYXRhIDFzdCkgcmVzdCkp KSkpCiAKICAgICAocGVyZmVjdC1mdW5jcSAxNwotCQkgICAobGFtYmRhIChoYXNoLXByb2MgYXNz b2MtcHJvYyBkZWxldGUtcHJvYykKLQkJICAgICAobGV0ICgocHJvY3MgKGxpc3QgaGFzaC1wcm9j IGFzc29jLXByb2MgZGVsZXRlLXByb2MpKSkKKwkJICAgKGxhbWJkYSAoaGFzaC1wcm9jIGFzc29j LXByb2MpCisJCSAgICAgKGxldCAoKHByb2NzIChsaXN0IGhhc2gtcHJvYyBhc3NvYy1wcm9jKSkp CiAJCSAgICAgICAoY29uZAotCQkJKChlcXVhbD8gcHJvY3MgYCgsaGFzaHEgLGFzc3EgLGRlbHEh KSkKKwkJCSgoZXF1YWw/IHByb2NzIGAoLGhhc2hxICxhc3NxKSkKIAkJCSAobWFrZS1tYXBwaW5n LWhvb2tzICh3cmFwIGhhc2hxLWdldC1oYW5kbGUpCiAJCQkJCSAgICAgKHdyYXAgaGFzaHEtY3Jl YXRlLWhhbmRsZSEpCiAJCQkJCSAgICAgKHdyYXAgaGFzaHEtcmVtb3ZlISkpKQotCQkJKChlcXVh bD8gcHJvY3MgYCgsaGFzaHYgLGFzc3YgLGRlbHYhKSkKKwkJCSgoZXF1YWw/IHByb2NzIGAoLGhh c2h2ICxhc3N2KSkKIAkJCSAobWFrZS1tYXBwaW5nLWhvb2tzICh3cmFwIGhhc2h2LWdldC1oYW5k bGUpCiAJCQkJCSAgICAgKHdyYXAgaGFzaHYtY3JlYXRlLWhhbmRsZSEpCiAJCQkJCSAgICAgKHdy YXAgaGFzaHYtcmVtb3ZlISkpKQotCQkJKChlcXVhbD8gcHJvY3MgYCgsaGFzaCAsYXNzb2MgLGRl bGV0ZSEpKQorCQkJKChlcXVhbD8gcHJvY3MgYCgsaGFzaCAsYXNzb2MpKQogCQkJIChtYWtlLW1h cHBpbmctaG9va3MgKHdyYXAgaGFzaC1nZXQtaGFuZGxlKQogCQkJCQkgICAgICh3cmFwIGhhc2gt Y3JlYXRlLWhhbmRsZSEpCiAJCQkJCSAgICAgKHdyYXAgaGFzaC1yZW1vdmUhKSkpCkBAIC05MCwz OSArODksMjcgQEAKIAkJCQkJICAgICAgKGxhbWJkYSAodGFibGUga2V5KQogCQkJCQkJKGhhc2h4 LWdldC1oYW5kbGUgaGFzaC1wcm9jIGFzc29jLXByb2MgdGFibGUga2V5KSkpCiAJCQkJCSAgICAg KHdyYXAKLQkJCQkJICAgICAgKGxhbWJkYSAodGFibGUga2V5KQotCQkJCQkJKGhhc2h4LWNyZWF0 ZS1oYW5kbGUgaGFzaC1wcm9jIGFzc29jLXByb2MgdGFibGUga2V5KSkpCisJCQkJCSAgICAgIChs YW1iZGEgKHRhYmxlIGtleSBpbml0KQorCQkJCQkJKGhhc2h4LWNyZWF0ZS1oYW5kbGUhIGhhc2gt cHJvYyBhc3NvYy1wcm9jIHRhYmxlIGtleSBpbml0KSkpCiAJCQkJCSAgICAgKHdyYXAKIAkJCQkJ ICAgICAgKGxhbWJkYSAodGFibGUga2V5KQotCQkJCQkJKGhhc2h4LWdldC1oYW5kbGUgaGFzaC1w cm9jIGFzc29jLXByb2MgZGVsZXRlLXByb2MgdGFibGUga2V5KSkpKSkpKSkpKSkKLQotKGRlZmlu ZSAobWFrZS1oYXNoLXRhYmxlLW1hcHBpbmcgdGFibGUgaGFzaC1wcm9jIGFzc29jLXByb2MgZGVs ZXRlLXByb2MpCi0gIChtYWtlLW1hcHBpbmcgKGhhc2gtdGFibGUtbWFwcGluZy1ob29rcyBoYXNo LXByb2MgYXNzb2MtcHJvYyBkZWxldGUtcHJvYykgdGFibGUpKQotCi0oZGVmaW5lIChoYXNoLXRh YmxlLW1hcHBpbmcgLiBvcHRpb25zKQotICAobGV0KiAoKHNpemUgKG9yIChhbmQgb3B0aW9ucyAo bnVtYmVyPyAoY2FyIG9wdGlvbnMpKSAoY2FyIG9wdGlvbnMpKQotCQkgICA3MSkpCi0JIChoYXNo LXByb2MgKG9yIChrdy1hcmctcmVmIG9wdGlvbnMgIzpoYXNoLXByb2MpIGhhc2gpKQotCSAoYXNz b2MtcHJvYyAob3IgKGt3LWFyZy1yZWYgb3B0aW9ucyAjOmFzc29jLXByb2MpCi0JCQkgKGNvbmQK LQkJCSAgKChlcT8gaGFzaC1wcm9jIGhhc2gpIGFzc29jKQotCQkJICAoKGVxPyBoYXNoLXByb2Mg aGFzaHYpIGFzc3YpCi0JCQkgICgoZXE/IGhhc2gtcHJvYyBoYXNocSkgYXNzcSkKLQkJCSAgKGVs c2UgKGVycm9yICdoYXNoLXRhYmxlLW1hcHBpbmcKLQkJCQkgICAgICAgIkhhc2gtcHJvY2VkdXJl IHNwZWNpZmllZCB3aXRoIG5vIGtub3duIGFzc29jIGZ1bmN0aW9uLiIKLQkJCQkgICAgICAgaGFz aC1wcm9jKSkpKSkKLQkgKGRlbGV0ZS1wcm9jIChvciAoa3ctYXJnLXJlZiBvcHRpb25zICM6ZGVs ZXRlLXByb2MpCi0JCQkgIChjb25kCi0JCQkgICAoKGVxPyBoYXNoLXByb2MgaGFzaCkgZGVsZXRl ISkKLQkJCSAgICgoZXE/IGhhc2gtcHJvYyBoYXNodikgZGVsdiEpCi0JCQkgICAoKGVxPyBoYXNo LXByb2MgaGFzaHEpIGRlbHEhKQotCQkJICAgKGVsc2UgKGVycm9yICdoYXNoLXRhYmxlLW1hcHBp bmcKLQkJCQkJIkhhc2gtcHJvY2VkdXJlIHNwZWNpZmllZCB3aXRoIG5vIGtub3duIGRlbGV0ZSBm dW5jdGlvbi4iCi0JCQkJCWhhc2gtcHJvYykpKSkpCi0JICh0YWJsZS1jb25zdHJ1Y3RvciAob3Ig KGt3LWFyZy1yZWYgb3B0aW9ucyAjOnRhYmxlLWNvbnN0cnVjdG9yKQotCQkJCShsYW1iZGEgKGxl bikgKG1ha2UtdmVjdG9yIGxlbiAnKCkpKSkpKQotICAgIChtYWtlLWhhc2gtdGFibGUtbWFwcGlu ZyAodGFibGUtY29uc3RydWN0b3Igc2l6ZSkKLQkJCSAgICAgaGFzaC1wcm9jCi0JCQkgICAgIGFz c29jLXByb2MKLQkJCSAgICAgZGVsZXRlLXByb2MpKSkKLQorCQkJCQkJKGhhc2h4LXJlbW92ZSEg aGFzaC1wcm9jIGFzc29jLXByb2MgdGFibGUga2V5KSkpKSkpKSkpKSkKKworKGRlZmluZSAobWFr ZS1oYXNoLXRhYmxlLW1hcHBpbmcgdGFibGUgaGFzaC1wcm9jIGFzc29jLXByb2MpCisgIChtYWtl LW1hcHBpbmcgKGhhc2gtdGFibGUtbWFwcGluZy1ob29rcyBoYXNoLXByb2MgYXNzb2MtcHJvYykg dGFibGUpKQorCisoZGVmaW5lKiAoaGFzaC10YWJsZS1tYXBwaW5nICM6b3B0aW9uYWwgKHNpemUg NzEpICM6a2V5CisgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChoYXNoLXByb2MgaGFzaCkK KyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGFzc29jLXByb2MKKyAgICAgICAgICAgICAg ICAgICAgICAgICAgICAgIChvciAoYXNzcS1yZWYgYCgoLGhhc2hxIC4gLGFzc3EpCisgICAgICAg ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCxoYXNodiAuICxhc3N2KQor ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICgsaGFzaCAuICxh c3NvYykpCisgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGhhc2gt cHJvYykKKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoZXJyb3IgJ2hhc2gtdGFi bGUtbWFwcGluZworICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiSGFz aC1wcm9jZWR1cmUgc3BlY2lmaWVkIHdpdGggbm8ga25vd24gYXNzb2MgZnVuY3Rpb24uIgorICAg ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoYXNoLXByb2MpKSkKKyAgICAg ICAgICAgICAgICAgICAgICAgICAgICAgKHRhYmxlLWNvbnN0cnVjdG9yCisgICAgICAgICAgICAg ICAgICAgICAgICAgICAgICAobGFtYmRhIChsZW4pIChtYWtlLXZlY3RvciBsZW4gJygpKSkpKQor ICAobWFrZS1oYXNoLXRhYmxlLW1hcHBpbmcgKHRhYmxlLWNvbnN0cnVjdG9yIHNpemUpCisgICAg ICAgICAgICAgICAgICAgICAgICAgICBoYXNoLXByb2MKKyAgICAgICAgICAgICAgICAgICAgICAg ICAgIGFzc29jLXByb2MpKQotLSAKMS43LjEwLjQKCg== --0016e6d7854f3dc48f04cf90b5a3--