From debbugs-submit-bounces@debbugs.gnu.org Tue May 31 14:28:01 2022 Received: (at 55639) by debbugs.gnu.org; 31 May 2022 18:28:02 +0000 Received: from localhost ([127.0.0.1]:48855 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nw6ay-0001zW-Jd for submit@debbugs.gnu.org; Tue, 31 May 2022 14:28:01 -0400 Received: from mail-wm1-f50.google.com ([209.85.128.50]:43842) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nw6av-0001zI-Um for 55639@debbugs.gnu.org; Tue, 31 May 2022 14:27:56 -0400 Received: by mail-wm1-f50.google.com with SMTP id 67-20020a1c1946000000b00397382b44f4so1667641wmz.2 for <55639@debbugs.gnu.org>; Tue, 31 May 2022 11:27:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version:content-transfer-encoding; bh=qgdLiietetRnJdX8+QcTgVG9kHWRJxVA4nCnAEcaTgM=; b=E3NOfbkLWiOmhpKuU+FZ+0eOjLcTyblwKC2ofldOIwYeDzF24wvvt3ut3l6LETceBd cGdobn52uF4ht8p6ONWl6HItXe96cp180jr/WiaBhaGvc7WsLKVzHT4dfe2aYk8UTYW/ Pd276jRvgdVKY5s2iiWDBmEsV1BXCS4l4IFGVkpda3a9cWBrmKO1LuIbXfxqYoWfL8yM ugXQxpgsSge70VBdR0pM310+WQo/5o/TQxBSkeyTJOlbAGqgjJFNTww8X3G0eY4SCU9G IZzrcEyRknJea3JidL39u9QVsjO5C7POv5TF/31qg6yBWPYncITkJTVqPQ1I2kQWy1g8 nztQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to :message-id:user-agent:mime-version:content-transfer-encoding; bh=qgdLiietetRnJdX8+QcTgVG9kHWRJxVA4nCnAEcaTgM=; b=ZSTs/gnniNo9rW43+/i23JPUMiOwcH+OBklHFLVO697dHdn8gixLun3lgfKMHF1SXO ybhW0/rC2EPemMQ2aihDDcHKhTOYBXBfHjsPVH+QgSCKTXDpF7e2cRpQnPsIp6DoXA4x 9qzguOYTdg915omuYjmHQ8S+KlP8hZO5GfrxPIdLK9tilLN6Dv3lCHJCBQ2zim/6eP9M HS/kjQy46vWPqchv18AmDPxBngmiPPFLUHIRnOevo00RrQOPY00yA9j6F//77xH6u3Rw jN6Rpa8PF94UnhsaGbSApYdEVkh+sQvCO3fUaTZtbHmOW7l9Nb8XCaZkHjc5epMUYDEl 5jNQ== X-Gm-Message-State: AOAM531trqiS3UKFB6TEPoyTbVEatJYNAEwOAxGcvWyjM4U1sn1MwF1C vUv+RP/dZAnK+hsdUt+Q2SX+vC3lLiA= X-Google-Smtp-Source: ABdhPJwi3tDQay6eTadJ9YmLe2kGvUoS+SoXpUYMLr8iDja6GaWkZWjg+B2cV7Wv/1zFf+2xXXD1PQ== X-Received: by 2002:a1c:4c1a:0:b0:397:80f7:aee with SMTP id z26-20020a1c4c1a000000b0039780f70aeemr24056168wmf.159.1654021667892; Tue, 31 May 2022 11:27:47 -0700 (PDT) Received: from pfiuh07 ([193.48.40.241]) by smtp.gmail.com with ESMTPSA id g19-20020a05600c4ed300b0039aef592ca0sm3158252wmq.35.2022.05.31.11.27.47 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 31 May 2022 11:27:47 -0700 (PDT) From: zimoun To: Ludovic =?utf-8?Q?Court=C3=A8s?= Subject: Re: bug#55639: time-machine back in 2020: weird error References: <87czg1cz87.fsf@gmail.com> <87ilplydq5.fsf@gnu.org> Date: Tue, 31 May 2022 20:27:43 +0200 In-Reply-To: <87ilplydq5.fsf@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22'?= =?utf-8?Q?s?= message of "Tue, 31 May 2022 16:32:34 +0200") Message-ID: <871qw9blr4.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -0.0 (/) X-Debbugs-Envelope-To: 55639 Cc: 55639@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.0 (-) Hi, On mar., 31 mai 2022 at 16:32, Ludovic Court=C3=A8s wrote: > This looks like something different, but it=E2=80=99s very weird. The un= helpful > =E2=80=98match-error=E2=80=99 seems to occur early on: > > $ head -1942 ~/.cache/guix/inferiors/wulvgnewx2av6dvgkq6adku4kzmlva75l2gu= kndywh7wvzenkmoa/share/guile/site/3.0/guix/ui.scm | tail -12 > ;; Disable canonicalization so we don't don't stat unreasonably. > (with-fluids ((%file-port-name-canonicalization #f)) > (dynamic-wind > (const #f) > (lambda () > (apply command-main args)) > (lambda () > ;; Abuse 'exit-hook' (which is normally meant to be used by t= he > ;; REPL) to run things like profiling hooks upon completion. > (run-hook exit-hook))))))) > > (define (run-guix . args) Is it possible that it comes from Guile 3.0.2 on a recent CPU? > Does =E2=80=9Cguix time-machine --commit=3Da7b20226b2 -- help=E2=80=9D wo= rk for you? Yes. --8<---------------cut here---------------start------------->8--- $ guix time-machine --commit=3Da7b20226b2 -- build hello guile: warning: failed to install locale Backtrace: 1 (primitive-load "/home/simon/.cache/guix/inferiors/wulvgnewx2a= v6dvgkq6adku4kzmlva75l2gukndywh7wvzenkmoa/bin/guix") In guix/ui.scm: 1936:12 0 (run-guix-command _ . _) guix/ui.scm:1936:12: In procedure run-guix-command: Throw to key `match-error' with args `("match" "no matching pattern" # /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-binaries-0 7efc= 8591fe60>)'. $ guix time-machine --commit=3Da7b20226b2 -- build /gnu/store/c6hgmfq0i4zgr= yqyl0ab1ms51fnrkmdv-bootstrap-binaries-0.drv guile: warning: failed to install locale /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-binaries-0 --8<---------------cut here---------------end--------------->8--- > Can you fiddle at the REPL and try to see more precisely what=E2=80=99s f= ailing? > > guix time-machine --commit=3Da7b20226b2 -- repl -q --8<---------------cut here---------------start------------->8--- $ guix time-machine --commit=3Da7b20226b2 -- repl -q guile: warning: failed to install locale GNU Guile 3.0.2 Copyright (C) 1995-2020 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guix-user)> (use-modules (guix store) (guix packages) (gnu packages= guile)) scheme@(guix-user)> (with-store store (package-derivation store guile-3.0)) ice-9/boot-9.scm:1669:16: In procedure raise-exception: Throw to key `match-error' with args `("match" "no matching pattern" # /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-binaries-0 7f19= 10e6a6e0>)'. Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guix-user) [1]> ,bt In ice-9/boot-9.scm: 1736:10 33 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _) In guix/store.scm: 630:22 32 (thunk) In guix/packages.scm: 966:16 31 (package-derivation _ # _ #:graft? _) 1285:22 30 (thunk) 1218:25 29 (bag->derivation # #< name: "guile-3.0.2" system: "x86_64-linux" target: #f build-inp=E2=80=A6= > =E2=80=A6) In srfi/srfi-1.scm: 586:17 28 (map1 (("source" #) = =E2=80=A6)) In guix/packages.scm: 1028:5 27 (expand-input _ _ _ _ _) In ice-9/boot-9.scm: 1736:10 26 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _) In guix/packages.scm: 1033:18 25 (_) In guix/store.scm: 2017:24 24 (run-with-store # # #:guile-for-build =E2=80= =A6) 1851:8 23 (_ _) In guix/packages.scm: 1390:5 22 (_ _) In guix/store.scm: 1886:38 21 (_ #) In guix/packages.scm: 966:16 20 (package-derivation _ # _ #:graft? _) 1285:22 19 (thunk) 1218:25 18 (bag->derivation # #< name: "guile-3.0.2" system: "x86_64-linux" target: #f build-inp=E2=80=A6= > =E2=80=A6) In srfi/srfi-1.scm: 586:17 17 (map1 (("source" #) = =E2=80=A6)) In guix/packages.scm: 1028:5 16 (expand-input _ _ _ _ _) In ice-9/boot-9.scm: 1736:10 15 (with-exception-handler _ _ #:unwind? _ #:unwind-for-type _) In guix/packages.scm: 1033:18 14 (_) In guix/store.scm: 2017:24 13 (run-with-store # # #:guile-for-build =E2=80= =A6) 1851:8 12 (_ _) In guix/gexp.scm: 961:2 11 (_ _) 821:2 10 (_ _) In guix/store.scm: 1899:12 9 (_ #) 1336:2 8 (map/accumulate-builds #= _ _) In srfi/srfi-1.scm: 586:17 7 (map1 ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x=E2=80=A6") = =E2=80=A6)) In guix/store.scm: 1295:8 6 (call-with-build-handler # _) 2017:24 5 (run-with-store # # #:guile-for-build =E2=80= =A6) In guix/gexp.scm: 693:18 4 (_ _) In ice-9/boot-9.scm: 1669:16 3 (raise-exception _ #:continuable? _) 1667:16 2 (raise-exception _ #:continuable? _) 1667:16 1 (raise-exception _ #:continuable? _) 1669:16 0 (raise-exception _ #:continuable? _) scheme@(guix-user) [1]> ,fr 7 In srfi/srfi-1.scm: 586:17 7 (map1 ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x=E2=80=A6") = =E2=80=A6)) scheme@(guix-user) [1]> ,locals Local variables: $1 =3D closure =3D # $2 =3D l =3D ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x3g1si4wbj0=E2=80= =A6") =E2=80=A6) scheme@(guix-user) [1]> (define b (caar $2)) scheme@(guix-user) [1]> ,pp b $3 =3D # scheme@(guix-user) [1]> (with-store store (package-derivation store b)) $4 =3D # /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-bi= naries-0 7f1910e6a6e0> scheme@(guix-user) [1]> (map $1 $2) ice-9/boot-9.scm:1669:16: In procedure raise-exception: Throw to key `match-error' with args `("match" "no matching pattern" # /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-binaries-0 7fd8= a7ac66e0>)'. Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guix-user) [2]> ,bt In ice-9/boot-9.scm: 222:17 4 (map1 ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x=E2=80=A6") = =E2=80=A6)) In guix/store.scm: 1295:8 3 (call-with-build-handler # _) 2017:24 2 (run-with-store # # #:guile-for-build =E2=80= =A6) In guix/gexp.scm: 693:18 1 (_ _) In ice-9/boot-9.scm: 1669:16 0 (raise-exception _ #:continuable? _) scheme@(guix-user) [2]> ,locals Local variables: $5 =3D closure =3D # scheme@(guix-user) [2]> ,fr 4 In ice-9/boot-9.scm: 222:17 4 (map1 ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x=E2=80=A6") = =E2=80=A6)) scheme@(guix-user) [2]> ,locals Local variables: $6 =3D closure =3D # $7 =3D l =3D ((# "out") ("/gnu/store/a7s2cq1by31wzqqas967x3g1si4wbj0=E2=80= =A6") =E2=80=A6) scheme@(guix-user) [2]> ($6 (car $7)) ice-9/boot-9.scm:1669:16: In procedure raise-exception: Throw to key `match-error' with args `("match" "no matching pattern" # /gnu/store/5bdaayvl6cs8nrdivskz4dbrsy2m009c-bootstrap-binaries-0 7fd8= a7ac66e0>)'. Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guix-user) [3]> ,bt In guix/store.scm: 1295:8 3 (call-with-build-handler # _) 2017:24 2 (run-with-store # # #:guile-for-build =E2=80= =A6) In guix/gexp.scm: 693:18 1 (_ _) In ice-9/boot-9.scm: 1669:16 0 (raise-exception _ #:continuable? _) scheme@(guix-user) [3]> ,fr 3 In guix/store.scm: 1295:8 3 (call-with-build-handler # _) scheme@(guix-user) [3]> ,locals Local variables: $8 =3D closure =3D # 7fd8b3232= ac0 proc: #>> $9 =3D handler =3D # scheme@(guix-user) [3]> ,fr 2 In guix/store.scm: 2017:24 2 (run-with-store # # #:guile-for-build =E2=80= =A6) scheme@(guix-user) [3]> ,locals Local variables: $10 =3D closure =3D # $11 =3D store =3D # $12 =3D mval =3D # $13 =3D t-10a3c941d34314a1-5734 =3D #< 7fd8b36b7780 proc: #> $14 =3D word =3D 0 $15 =3D t-10a3c941d34314a1-573e =3D # $16 =3D mask =3D 4 While executing meta-command: In procedure frame-local-ref: Wrong type argument in position 3: ptr scheme@(guix-user) [3]> (car $7) $17 =3D (# "out") scheme@(guix-user) [3]> $6 $18 =3D # --8<---------------cut here---------------end--------------->8--- Bah, I have not idea. Does it come from --8<---------------cut here---------------start------------->8--- (define (map/accumulate-builds store proc lst) "Apply PROC over each element of LST, accumulating 'build-things' calls a= nd coalescing them into a single call." (define result (map (lambda (obj) (with-build-handler build-accumulator (proc obj))) lst)) [...] --8<---------------cut here---------------end--------------->8--- where line 1337 is the one with =E2=80=99(map (lambda (obj)=E2=80=99? Well, it is weird, isn=E2=80=99t? I am lacking some magical trick to investigate more. Any ideas? Cheers, simon