From debbugs-submit-bounces@debbugs.gnu.org Tue Sep 29 04:29:32 2020 Received: (at submit) by debbugs.gnu.org; 29 Sep 2020 08:29:32 +0000 Received: from localhost ([127.0.0.1]:54924 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNB0t-0004P9-N6 for submit@debbugs.gnu.org; Tue, 29 Sep 2020 04:29:32 -0400 Received: from lists.gnu.org ([209.51.188.17]:49146) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNB0s-0004P1-AC for submit@debbugs.gnu.org; Tue, 29 Sep 2020 04:29:31 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:46900) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kNB0s-0005IK-1l for guix-patches@gnu.org; Tue, 29 Sep 2020 04:29:30 -0400 Received: from mail-wm1-x343.google.com ([2a00:1450:4864:20::343]:36950) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kNB0p-0004mL-Sg for guix-patches@gnu.org; Tue, 29 Sep 2020 04:29:29 -0400 Received: by mail-wm1-x343.google.com with SMTP id a9so3870236wmm.2 for ; Tue, 29 Sep 2020 01:29:26 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=leibniz-psychology-org.20150623.gappssmtp.com; s=20150623; h=date:from:to:subject:message-id:mime-version:content-disposition :user-agent; bh=M3VdajoPivBZ2WRL8iUhksjAHNlTPd00SRQAm5a7T6Q=; b=HSYgKu4xLMKFv9s3lLKkZi1X7Lpme9P+4CajUGTOEFT2Eb00hsQZ4EigJt6oUntxoo 312BKp6JI5v3ValBOy24QiQhgxMb2BJ0fEXs1CH0PbUf0rpAkfn7s/XC0q78IaEzoT1R 5BXIneq+fTD/kDSF0RrcWTCzioQku3MdppCUVHO3dAvbxbMW7JWFSIj3BMuh7jtK9PtT 6muL7WFoTuWpS6M5Ie82iI9/L7mIFqY/3MI/JZ/OFQqjJfhHWJOL1ujqlI2NicX3AEPK pjSTS40I7+ns7AqyQS0iRYPU2YpbrOsHbUW1bQpA8pl3eq8rSeIzH111xfTR55+bh89d mNpg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:date:from:to:subject:message-id:mime-version :content-disposition:user-agent; bh=M3VdajoPivBZ2WRL8iUhksjAHNlTPd00SRQAm5a7T6Q=; b=q8hkv+g1NOi/1aSTsjFmJuSsUWGZRf/9nybsS2DGRWfI+yI6pPVunySquTyXKMq9Oc JjZXOhUwt7IM6y0BgCMRc5j9ZfniYeOM/PmMhuK0Db00kEKiwXy/+7HjrrPByZdMrKtr 3DWlUPJUeI3AbunI6WYFhdOwq/LR48x1upCEHXgEZ/5Gaq2EFESyAFE0V8dlK/Jx5pCb csO+nDHRuREyGGdouZLrk0IIecZq+gIVfq9/DgOJ86iKWBbI4SKnx0uaYtWoaNhPATCi 1g23tgc7CoQmXqE+uiN6dFBF336m2OLxpxOn/+kxGIWTX2pIGH4zxstqtQnvVHjxOuRL AcPg== X-Gm-Message-State: AOAM530Ig0DaCxc213JhhyJJRtNigXTPH8lTSC1LLJraI6WUXBmIrFIv hXfhOrbv/ICxEU0f/arX48iXi93d2JKfQzVt/p9F9x0+LDJWN3zxEC/S5CfIpzg7pULbf6FnuL5 JSae1swqAC1yJeMHeCfufPn7JmLJsn/x4zOJKb/3SnaA4KIRcLn3gi3MUoz9XRy4Sj3vBl2a8PJ /CQ4pRyNgl0w== X-Google-Smtp-Source: ABdhPJwglxu+uO/qpSVWIzhLBucqakqIJgi1CrQv0GNW2Gjvd+FGDvSgkXs7kU9uqcfxUyHUFW+nJg== X-Received: by 2002:a7b:ca42:: with SMTP id m2mr3336179wml.145.1601368164781; Tue, 29 Sep 2020 01:29:24 -0700 (PDT) Received: from localhost (dynamic-2a01-0c22-c87d-b300-bcd8-0534-6f01-510b.c22.pool.telefonica.de. [2a01:c22:c87d:b300:bcd8:534:6f01:510b]) by smtp.gmail.com with ESMTPSA id p1sm12803899wma.0.2020.09.29.01.29.23 for (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 29 Sep 2020 01:29:23 -0700 (PDT) Date: Tue, 29 Sep 2020 10:29:23 +0200 From: Lars-Dominik Braun To: guix-patches@gnu.org Subject: [PATCH] guix: Fix argument order of fxbit-set? Message-ID: <20200929082923.GA7294@zpidnp36> MIME-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="vtzGhvizbBRQ85DL" Content-Disposition: inline User-Agent: Mutt/1.10.1 (2018-07-13) Received-SPF: none client-ip=2a00:1450:4864:20::343; envelope-from=ldb@leibniz-psychology.org; helo=mail-wm1-x343.google.com X-detected-operating-system: by eggs.gnu.org: No matching host in p0f cache. That's all we know. X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_NONE=0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) --vtzGhvizbBRQ85DL Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable * guix/openpgp.scm (port-ascii-armored?): Fix it here=E2=80=A6 (get-packet*): =E2=80=A6and here=E2=80=A6 (parse-subpackets): =E2=80=A6and also here. * tests/openpgp.scm (%binary-sample): New test vector. ("port-ascii-armored?, #t"): Add test. ("port-ascii-armored?, #f"): Add another test. --- guix/openpgp.scm | 14 +++++++------- tests/openpgp.scm | 12 ++++++++++++ 2 files changed, 19 insertions(+), 7 deletions(-) diff --git a/guix/openpgp.scm b/guix/openpgp.scm index 33c851255b..f6c9f8ac78 100644 --- a/guix/openpgp.scm +++ b/guix/openpgp.scm @@ -239,7 +239,7 @@ writes to PORT the value 42 as an 8-bit integer and the= value #x7777 as a (let ((idx (fxarithmetic-shift-right i 3)) (bit (fxand i #b111))) (and (< idx (bytevector-length bv)) - (fxbit-set? (bytevector-u8-ref bv idx) bit)))) + (fxbit-set? bit (bytevector-u8-ref bv idx))))) (do ((names names (cdr names)) (i 0 (fx+ i 1)) (bits '() @@ -410,9 +410,9 @@ hexadecimal format for fingerprints." (define (port-ascii-armored? p) (let ((tag (lookahead-u8 p))) (cond ((eof-object? tag) #f) - ((not (fxbit-set? tag 7)) #t) + ((not (fxbit-set? 7 tag)) #t) (else - (let ((type (if (fxbit-set? tag 6) + (let ((type (if (fxbit-set? 6 tag) (fxbit-field tag 0 6) (fxbit-field tag 2 6)))) (not (<=3D PACKET-SESSION-KEY type PACKET-MDC))))))) @@ -444,7 +444,7 @@ hexadecimal format for fingerprints." (define (get-packet* p get-data) (let ((tag (get-u8 p))) ;; (unless (fxbit-set? tag 7) (error 'get-packet "Invalid tag" tag)) - (cond ((fxbit-set? tag 6) ;New packet format + (cond ((fxbit-set? 6 tag) ;New packet format (let ((tag (fxbit-field tag 0 6)) (len (get-v4-length p))) (get-data p tag len))) @@ -726,7 +726,7 @@ FINGERPRINT, a bytevector." (define (parse-subpackets bv signature-port) (define (parse tag data) (let ((type (fxbit-field tag 0 7)) - (critical? (fxbit-set? tag 7))) + (critical? (fxbit-set? 7 tag))) (cond ((=3D type SUBPACKET-SIGNATURE-CTIME) (cons 'signature-ctime @@ -764,7 +764,7 @@ FINGERPRINT, a bytevector." (value (get-bytevector-n p vlen))) (cons 'notation-data (list (utf8->string name) - (if (fxbit-set? f1 7) + (if (fxbit-set? 7 f1) (utf8->string value) value))))))) ((=3D type SUBPACKET-PREFERRED-HASH-ALGORITHMS) @@ -777,7 +777,7 @@ FINGERPRINT, a bytevector." ((=3D type SUBPACKET-KEY-SERVER-PREFERENCES) (cons 'key-server-preferences (if (and (>=3D (bytevector-length data) 1) - (fxbit-set? (bytevector-u8-ref data 0) 7)) + (fxbit-set? 7 (bytevector-u8-ref data 0))) (list 'no-modify) (list)))) ((=3D type SUBPACKET-PREFERRED-KEY-SERVER) diff --git a/tests/openpgp.scm b/tests/openpgp.scm index 0beab6f88b..c2be26fa49 100644 --- a/tests/openpgp.scm +++ b/tests/openpgp.scm @@ -50,6 +50,12 @@ vBSFjNSiVHsuAA=3D=3D =3DAAAA -----END PGP MESSAGE-----\n") =20 +(define %binary-sample + ;; Same message as %radix-64-sample, decoded into bytevector. + (base16-string->bytevector + "c838013b6d96c411efecef17ecefe3ca0004ce8979ea250a897995f979a9\ +0ad9a9a9050a890ac5a9c945a940c1a2fcd2bc14858cd4a2547b2e00")) + (define %civodul-fingerprint "3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5") =20 @@ -155,6 +161,12 @@ Pz7oopeN72xgggYUNT37ezqN3MeCqw0=3D read-radix-64)) list)) =20 +(test-assert "port-ascii-armored?, #t" + (call-with-input-string %radix-64-sample port-ascii-armored?)) + +(test-assert "port-ascii-armored?, #f" + (not (port-ascii-armored? (open-bytevector-input-port %binary-sample)))) + (test-assert "get-openpgp-keyring" (let* ((key (search-path %load-path "tests/civodul.key")) (keyring (get-openpgp-keyring --=20 2.26.2 --vtzGhvizbBRQ85DL Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQGzBAABCgAdFiEEyk+M9DfXR4/aBV/UQhN3ARo3hEYFAl9y8GAACgkQQhN3ARo3 hEatvgwAiONOjd/cVr5mG6ADfDI+yMKyzsIMa8yZII6U161e7ShRuYwiy/h0Vpmv 008FDUBPOt74Ckszh4bz5NkWwgXlGuhatHgDjkNV6OKNBlWDHhlM1dVeWKhVcA7i Glrx6sJNx+zqDx++cZvE5EhP4pVRZtboB6mG0tfGpGJvPnbgkG9rTTcMgp55CH+x 2i90sMywKVhajlr0vY2gyp4zoHc/4l1kFm8pD8FtrRCIR1eve1m7S2DrybFTbOg1 8Wlj7ZUWzj7fzL5kIuJpIqUh2SGbTCGFa2iANB2/B9aPvE4HCtSbyBTSTmUxQoFI nxL/y4VpNgDG3M4AQN63DfjK9VBdVE87ogXVQIvVm5PErLz6gNszYSwSFJ6qqQlt WHoXYMI86HXPph/TdMEbcmIjj1k54qj+zdc3SjUOJQ2Ndw+3/GAfts/L7cefuj6h WWdFiK81euhcqKT5dO96KMG/2a6Z4o6Mfyfba98EWeI3y8OucR+pWWtVhJxGl2oB MoMD3HFP =M725 -----END PGP SIGNATURE----- --vtzGhvizbBRQ85DL-- From debbugs-submit-bounces@debbugs.gnu.org Tue Sep 29 16:56:17 2020 Received: (at 43699-done) by debbugs.gnu.org; 29 Sep 2020 20:56:17 +0000 Received: from localhost ([127.0.0.1]:57312 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNMfZ-0000AH-KR for submit@debbugs.gnu.org; Tue, 29 Sep 2020 16:56:17 -0400 Received: from eggs.gnu.org ([209.51.188.92]:60604) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNMfX-0000A4-Q2 for 43699-done@debbugs.gnu.org; Tue, 29 Sep 2020 16:56:16 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:47615) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kNMfS-00009V-Dt; Tue, 29 Sep 2020 16:56:10 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=57494 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1kNMfR-0004ug-JE; Tue, 29 Sep 2020 16:56:10 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Lars-Dominik Braun Subject: Re: [bug#43699] [PATCH] guix: Fix argument order of fxbit-set? References: <20200929082923.GA7294@zpidnp36> Date: Tue, 29 Sep 2020 22:56:08 +0200 In-Reply-To: <20200929082923.GA7294@zpidnp36> (Lars-Dominik Braun's message of "Tue, 29 Sep 2020 10:29:23 +0200") Message-ID: <87d024480n.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 43699-done Cc: 43699-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hello! Lars-Dominik Braun skribis: > * guix/openpgp.scm (port-ascii-armored?): Fix it here=E2=80=A6 > (get-packet*): =E2=80=A6and here=E2=80=A6 > (parse-subpackets): =E2=80=A6and also here. > * tests/openpgp.scm (%binary-sample): New test vector. > ("port-ascii-armored?, #t"): Add test. > ("port-ascii-armored?, #f"): Add another test. Good catch! The root problem is that the =E2=80=98fxbit-set?=E2=80=99 alias defined at = the top of openpgp.scm had the arguments swapped compared to =E2=80=98bit-set?=E2=80= =99. So I changed that alias instead of changing its users (=E2=80=98fxbit-set?=E2=80= =99 is defined in R6RS). Pushed as 680b80e37453d4e23ad8188d60894916e1c07162 along with the new tests. Thank you! Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Wed Sep 30 02:31:00 2020 Received: (at 43699-done) by debbugs.gnu.org; 30 Sep 2020 06:31:00 +0000 Received: from localhost ([127.0.0.1]:57904 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNVdj-00020L-Qp for submit@debbugs.gnu.org; Wed, 30 Sep 2020 02:30:59 -0400 Received: from mail-wm1-f67.google.com ([209.85.128.67]:36119) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNVdi-000209-HO for 43699-done@debbugs.gnu.org; Wed, 30 Sep 2020 02:30:58 -0400 Received: by mail-wm1-f67.google.com with SMTP id e2so425353wme.1 for <43699-done@debbugs.gnu.org>; Tue, 29 Sep 2020 23:30:58 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=leibniz-psychology-org.20150623.gappssmtp.com; s=20150623; h=date:from:to:cc:subject:message-id:references:mime-version :content-disposition:in-reply-to:user-agent; bh=1PhI5sV2N2WZ9MXYoy66TaxRIeKaG4+GSeQLRknu11Q=; b=FWe8qNAjoLhIVNpxpcBwuluUd5q4pHwu1e4zkrMK5rBsPSA6YSBTTc+WvlxKghoijB fFnnoGQwo1PGJWG1wgACXq6dqOvDm1brV0KvQjBrbVtNDYhFziLn/N4nzgOXOoOGxGy7 jTY0Fx3/wfMOvBENnlGZAxZXQA2s+0NrCcncZujjd3GKESS0mOfwoPfZMiTRamxaWVQ1 RDkK/8CR47n+qx7leIqGMiYSxLY1zlSe7EqsZphQLUp6/u7yZCnq7qWLyTO1ZHr+V5+W bVmTcs0eQfMukm+A7A9HBeLhuD5Ye2DeDJ/tmmI2br8AvXFi+SxQmGBTxFR9jwmzZ5No Gh3A== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:date:from:to:cc:subject:message-id:references :mime-version:content-disposition:in-reply-to:user-agent; bh=1PhI5sV2N2WZ9MXYoy66TaxRIeKaG4+GSeQLRknu11Q=; b=Wut3rvBVZTWhkeOvjMo+r/gHYPNtpW4ckMT5aF7lOLbjxsmVlH6SrXyI5OPSfP0HP1 NfjcxthzwizBEGpiq9Pvq6CJkYwQKBshQ7wrhTmJsyOl+0BW9xZo53F12Sk4IbhcVP3D tl9SHXxB7SQTNEnFOSYe9ycF9ZfawnrylX9kiqaWUwnGvY08jFkwvREPpD7EGV8LfQz2 8qdiRZ2O+ghR91uMmXTaI3TIKCCF23ggtPQh7cLXI/CpxwXg5x+78JeKOq1V/OhffUx7 OdST0E8U9cZWT+V3dz5+PJ1VDntaCrb/vYAOqAmyeLSbnZzlDazaeRy0Az2rrjF9RNOI CyAg== X-Gm-Message-State: AOAM533Iy57A32EmpD7V+rGGQBa19YxqSlJmZE3g+SaSc1R5x0WVc60O ntBM/jSjURucmRSmelBVjc8hzdM11rgytpEzvDDA/e0Y8dWbb1V9HCe26qdSxMe4ePGMh+ccFPH RZ57BdyCwohIjlAeJYcO/XEdIz27jFONL6pwflhIq//Q/STqUgHieM4Gevtr2oHu4uuM3wY+JR3 oNxmiGkypdgQ== X-Google-Smtp-Source: ABdhPJxDf9BJQ6Cj587Y89Tu5tDHbpl06h8dD/wzJ7fbO5xjxalUo+PkI2P97cNWxQUd7Vz6s7zccg== X-Received: by 2002:a7b:cb44:: with SMTP id v4mr1148727wmj.101.1601447452583; Tue, 29 Sep 2020 23:30:52 -0700 (PDT) Received: from localhost (dynamic-2a01-0c22-d081-4000-a0d9-848d-6d52-9800.c22.pool.telefonica.de. [2a01:c22:d081:4000:a0d9:848d:6d52:9800]) by smtp.gmail.com with ESMTPSA id 9sm993348wmf.7.2020.09.29.23.30.51 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 29 Sep 2020 23:30:51 -0700 (PDT) Date: Wed, 30 Sep 2020 08:30:51 +0200 From: Lars-Dominik Braun To: Ludovic =?iso-8859-1?Q?Court=E8s?= Subject: Re: [bug#43699] [PATCH] guix: Fix argument order of fxbit-set? Message-ID: <20200930063051.GA3058@zpidnp36> References: <20200929082923.GA7294@zpidnp36> <87d024480n.fsf@gnu.org> MIME-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="Qxx1br4bt0+wmkIi" Content-Disposition: inline In-Reply-To: <87d024480n.fsf@gnu.org> User-Agent: Mutt/1.10.1 (2018-07-13) X-Spam-Score: -0.6 (/) X-Debbugs-Envelope-To: 43699-done Cc: 43699-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -1.6 (-) --Qxx1br4bt0+wmkIi Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Hi Ludo, > The root problem is that the =E2=80=98fxbit-set?=E2=80=99 alias defined a= t the top of > openpgp.scm had the arguments swapped compared to =E2=80=98bit-set?=E2=80= =99. So I > changed that alias instead of changing its users (=E2=80=98fxbit-set?=E2= =80=99 is > defined in R6RS). oh, okay. I looked at SRFI 143 which also has a fxbit-set? with the same argument order as bit-set?, so I thought the alias was mimicking that API. = But this works too I guess. Thanks, Lars [1] https://srfi.schemers.org/srfi-143/srfi-143.html --Qxx1br4bt0+wmkIi Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQGzBAABCgAdFiEEyk+M9DfXR4/aBV/UQhN3ARo3hEYFAl90JhUACgkQQhN3ARo3 hEZizQwAvd5ftVMPa6nihPqArTqIy1Mp8T+VUXAYfPFukuzOsNkXrW7sNWCmDXUF HS2pG14ffTb+HRh3pKLg5dI69EuJ2ZO9aS8WdHYKh1hs7krYBwFffDtZub2nqrsp vaozf60jmQ9cUTBoBEv/7o3pGY+FZYspofdRalo9p/rxq694WJ4e9aTc0kCRs7e4 U5CwDK9kvHY6f+NA+qUg1mJL5l+KvrtyH77TvOY+u4whTcCkRaStLch3UAySwjo4 0xwDYPWJETQk4rDuz10l6fCPZ9Ql42t55pon3KfuCJT24tE3BtdDpMfgUScrat5w HygYzD1pws91ulX8XrkINxTVk+ugl7jU6EzTOnCdzYIR3tK3kC+idTwG5zJIQa0G Wi6G1NkOxWk3usLsr4ryrZCYQ8OMpxGxXMQ//sSqM0zNWLXnby6xf8vAsrF4wn3i ECgyaVjRom8OXSOC7sit8fUeLK6nqTnuTb2a8TNnjED40i/DkShT+xcsMjy9JQGi jp/HX7s8 =9uSE -----END PGP SIGNATURE----- --Qxx1br4bt0+wmkIi-- From debbugs-submit-bounces@debbugs.gnu.org Wed Sep 30 05:34:54 2020 Received: (at 43699-done) by debbugs.gnu.org; 30 Sep 2020 09:34:54 +0000 Received: from localhost ([127.0.0.1]:58241 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNYVh-0006Vu-P1 for submit@debbugs.gnu.org; Wed, 30 Sep 2020 05:34:53 -0400 Received: from eggs.gnu.org ([209.51.188.92]:56550) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kNYVg-0006Vh-OK for 43699-done@debbugs.gnu.org; Wed, 30 Sep 2020 05:34:53 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:58790) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kNYVb-00031Z-Dj; Wed, 30 Sep 2020 05:34:47 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=58756 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1kNYVa-0007lJ-08; Wed, 30 Sep 2020 05:34:46 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Lars-Dominik Braun Subject: Re: [bug#43699] [PATCH] guix: Fix argument order of fxbit-set? References: <20200929082923.GA7294@zpidnp36> <87d024480n.fsf@gnu.org> <20200930063051.GA3058@zpidnp36> X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 9 =?utf-8?Q?Vend=C3=A9miaire?= an 229 de la =?utf-8?Q?R=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Date: Wed, 30 Sep 2020 11:34:44 +0200 In-Reply-To: <20200930063051.GA3058@zpidnp36> (Lars-Dominik Braun's message of "Wed, 30 Sep 2020 08:30:51 +0200") Message-ID: <87pn631ubv.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 43699-done Cc: 43699-done@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hi, Lars-Dominik Braun skribis: >> The root problem is that the =E2=80=98fxbit-set?=E2=80=99 alias defined = at the top of >> openpgp.scm had the arguments swapped compared to =E2=80=98bit-set?=E2= =80=99. So I >> changed that alias instead of changing its users (=E2=80=98fxbit-set?=E2= =80=99 is >> defined in R6RS). > oh, okay. I looked at SRFI 143 which also has a fxbit-set? with the same > argument order as bit-set?, so I thought the alias was mimicking that API= . But > this works too I guess. Oh, didn=E2=80=99t know about that SRFI; that=E2=80=99s the beauty of Schem= e: 10 =E2=80=9Cstandard=E2=80=9D interfaces for the same thing. :-) This OpenPGP code originates from R6RS (G=C3=B6ran Weinholt=E2=80=99s Indus= tria library and related code) so I think that was right. Thanks, Ludo=E2=80=99. From unknown Thu Jun 19 14:22:42 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Wed, 28 Oct 2020 11:24:08 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator