From unknown Sat Aug 16 21:15:53 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#59681 <59681@debbugs.gnu.org> To: bug#59681 <59681@debbugs.gnu.org> Subject: Status: [PATCH 1/2] gnu: loko: Use G-expressions. Reply-To: bug#59681 <59681@debbugs.gnu.org> Date: Sun, 17 Aug 2025 04:15:53 +0000 retitle 59681 [PATCH 1/2] gnu: loko: Use G-expressions. reassign 59681 guix-patches submitter 59681 Zhu Zihao severity 59681 normal tag 59681 patch thanks From debbugs-submit-bounces@debbugs.gnu.org Tue Nov 29 10:22:05 2022 Received: (at submit) by debbugs.gnu.org; 29 Nov 2022 15:22:05 +0000 Received: from localhost ([127.0.0.1]:54720 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p02Qv-0003aA-9A for submit@debbugs.gnu.org; Tue, 29 Nov 2022 10:22:05 -0500 Received: from lists.gnu.org ([209.51.188.17]:59030) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p02Qr-0003Zn-MZ for submit@debbugs.gnu.org; Tue, 29 Nov 2022 10:22:03 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p02Qq-0004CG-JP for guix-patches@gnu.org; Tue, 29 Nov 2022 10:22:01 -0500 Received: from mail-m974.mail.163.com ([123.126.97.4]) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1p02Qm-0008TA-BE for guix-patches@gnu.org; Tue, 29 Nov 2022 10:22:00 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com; s=s110527; h=From:Subject:Date:Message-Id:MIME-Version; bh=V6FUi GOoD9YlSChmTx75UzKW8SjOIekfgQVUzDuhJpc=; b=nUp/b5GmrEa2Sd4yjpct8 QFeG7j5/muYzztx+C6Lyz0Pq8V5RgkatCMQzI4oaKBv2B/ZQWTdJn2tN667WDDf1 oE/TEJrCMnwi4pFXEjj/ZGvQHUXeHPnxcIc55J9nZnSOt09JiJmMHvFzpccCtKwX NnPZM+D9tEpz3ohPKqr6Xw= Received: from localhost.localdomain (unknown [163.125.249.242]) by smtp4 (Coremail) with SMTP id HNxpCgDXF3iCI4ZjVIBntw--.59865S2; Tue, 29 Nov 2022 23:21:43 +0800 (CST) From: Zhu Zihao To: guix-patches@gnu.org Subject: [PATCH 1/2] gnu: loko: Use G-expressions. Date: Tue, 29 Nov 2022 23:21:33 +0800 Message-Id: <20221129152134.8917-1-all_but_last@163.com> X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-CM-TRANSID: HNxpCgDXF3iCI4ZjVIBntw--.59865S2 X-Coremail-Antispam: 1Uf129KBjvJXoWxCF45GF4DAF1xAry7ZFyDGFg_yoW5Zr4fpa 4Sk3Z3Kr4rCryrAan3Xw48ur15WF4ktF45Cws3Cw40yws0vFy0gr17KrZ5ZFyxt34xZ347 GwsrXrW5WrWUuFJanT9S1TB71UUUUUUqnTZGkaVYY2UrUUUUjbIjqfuFe4nvWSU5nxnvy2 9KBjDUYxBIdaVFxhVjvjDU0xZFpf9x0JUv9akUUUUU= X-Originating-IP: [163.125.249.242] X-CM-SenderInfo: pdoosuxxwbztlvw6il2tof0z/xtbBoQjIr2I0V8eYqgAAs6 Received-SPF: pass client-ip=123.126.97.4; envelope-from=all_but_last@163.com; helo=mail-m974.mail.163.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.4 (-) X-Debbugs-Envelope-To: submit Cc: Zhu Zihao 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: -2.4 (--) * gnu/packages/loko.scm (loko)[arguments]: Use G-expressions. <#:phases>: In 'akku-fixes', replace "(assoc-ref inputs name)" with "this-package-native-input". [native-inputs]: Use label-less style. --- gnu/packages/loko.scm | 72 +++++++++++++++++++++++-------------------- 1 file changed, 38 insertions(+), 34 deletions(-) diff --git a/gnu/packages/loko.scm b/gnu/packages/loko.scm index 449c62f1f0..cb189acb87 100644 --- a/gnu/packages/loko.scm +++ b/gnu/packages/loko.scm @@ -41,41 +41,45 @@ (define-public loko-scheme (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments - `(;; r7rs tests are a work in progress as of 0.7.0. - #:tests? #f - #:strip-binaries? #f - #:make-flags - (let ((out (assoc-ref %outputs "out"))) - (list - (string-append "PREFIX=" out) - (string-append "GDB_AUTOLOAD_PATH=" out "/share/gdb/auto-load"))) - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before 'build 'akku-fixes - (lambda* (#:key inputs #:allow-other-keys) - (delete-file "Akku.lock") - (substitute* "Akku.manifest" - (("\\(depends.*") "(depends)")) - (invoke "akku" "install") - (let ((dest "./.akku/lib/") - (source "/share/guile/site/3.0/")) - (for-each - (lambda (name) - ;; Symlink the scheme libraries so that Akku can find them - (symlink (string-append (assoc-ref inputs name) source name) - (string-append dest name))) - '("struct" "laesare" "pfds" "machine-code"))) - (substitute* ".akku/env" - (("/bin/sh") (which "sh"))) - #t))))) + (list + ;; r7rs tests are a work in progress as of 0.7.0. + #:tests? #f + #:strip-binaries? #f + #:make-flags + #~(list + (string-append "PREFIX=" #$output) + (string-append "GDB_AUTOLOAD_PATH=" #$output "/share/gdb/auto-load")) + #:phases + #~(modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'akku-fixes + (lambda _ + (delete-file "Akku.lock") + (substitute* "Akku.manifest" + (("\\(depends.*") "(depends)")) + (invoke "akku" "install") + (let ((dest "./.akku/lib/") + (source "/share/guile/site/3.0/")) + (for-each + (lambda (name prefix) + ;; Symlink the scheme libraries so that Akku can find them + (symlink (string-append prefix source name) + (string-append dest name))) + '("struct" "laesare" "pfds" "machine-code") + (list #$(this-package-native-input "guile-struct-pack") + #$(this-package-native-input "guile-laesare") + #$(this-package-native-input "guile-pfds") + #$(this-package-native-input "guile-machine-code")))) + (substitute* ".akku/env" + (("/bin/sh") (which "sh"))) + #t))))) (native-inputs - `(("akku" ,akku) - ("chez-scheme" ,(chez-scheme-for-system)) - ("struct" ,guile-struct-pack) - ("laesare" ,guile-laesare) - ("pfds" ,guile-pfds) - ("machine-code" ,guile-machine-code))) + (list akku + (chez-scheme-for-system) + guile-struct-pack + guile-laesare + guile-pfds + guile-machine-code)) (home-page "https://scheme.fail") (synopsis "Implementation of the algorithmic language Scheme") (description -- 2.38.1 From debbugs-submit-bounces@debbugs.gnu.org Tue Nov 29 10:34:30 2022 Received: (at 59681) by debbugs.gnu.org; 29 Nov 2022 15:34:30 +0000 Received: from localhost ([127.0.0.1]:54788 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p02cv-0003l6-HV for submit@debbugs.gnu.org; Tue, 29 Nov 2022 10:34:30 -0500 Received: from m12.mail.163.com ([220.181.12.217]:60070) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p02ct-0003l0-7W for 59681@debbugs.gnu.org; Tue, 29 Nov 2022 10:34:28 -0500 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=163.com; s=s110527; h=From:Subject:Date:Message-ID:MIME-Version; bh=1YGua xnnd8XszKUBZD0QDFPMNYMno/huKX7ialaTF2c=; b=dORGtOvOzGKR8lKDpmkCi VjInQSGBvSiX6HvLhpEQUy9mZ7uQfrehM6sVKacYti0Pa3CPODutyGJmldAVEOf8 KOFIj4sMZl0NN8PcAx7dd48+rWpm2TW/G1zxNVmEP+kZTACUJtDnwUkHcjZ9GtRI TRzqrm56h741iVl+uioZxA= Received: from asus-laptop (unknown [163.125.249.242]) by zwqz-smtp-mta-g0-1 (Coremail) with SMTP id _____wD3_+93JoZjP3+CAA--.47504S2; Tue, 29 Nov 2022 23:34:15 +0800 (CST) References: <20221129152134.8917-1-all_but_last@163.com> User-agent: mu4e 1.8.11; emacs 30.0.50 From: Zhu Zihao To: 59681@debbugs.gnu.org Subject: Re: bug#59681: Acknowledgement ([PATCH 1/2] gnu: loko: Use G-expressions.) Date: Tue, 29 Nov 2022 23:30:37 +0800 In-reply-to: Message-ID: <86edtlrczz.fsf@163.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-CM-TRANSID: _____wD3_+93JoZjP3+CAA--.47504S2 X-Coremail-Antispam: 1Uf129KBjDUn29KB7ZKAUJUUUUU529EdanIXcx71UUUUU7v73 VFW2AGmfu7bjvjm3AaLaJ3UbIYCTnIWIevJa73UjIFyTuYvjTRyE_tDUUUU X-Originating-IP: [163.125.249.242] X-CM-SenderInfo: pdoosuxxwbztlvw6il2tof0z/1tbiFB7Ir1aEA9dCjwAAsm X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 59681 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 (-) --=-=-= Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" --==-=-= Content-Type: text/plain Something wrong with the original patch, update here --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iIsEARYIADMWIQT4UAIrVkIEZilSHr2K2nJqP6LM8gUCY4YmcBUcYWxsX2J1dF9s YXN0QDE2My5jb20ACgkQitpyaj+izPL7ggEAp7WnyLAsRHdq6ZtPPbaY+3hJKDXi ey+55N92JpJ/5cMA/3Uef03v/cu1XBw2nCwYJfsxs+RwhjXDzHCi7m0xzIgI =NJZy -----END PGP SIGNATURE----- --==-=-=-- --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-gnu-loko-scheme-Use-G-expressions.patch >From 0d85f05069ccb1bfa648def38375b981893e3601 Mon Sep 17 00:00:00 2001 From: Zhu Zihao Date: Tue, 29 Nov 2022 18:59:24 +0800 Subject: [PATCH 1/2] gnu: loko-scheme: Use G-expressions. * gnu/packages/loko.scm (loko-scheme)[arguments]: Use G-expressions. <#:phases>: In 'akku-fixes', replace "(assoc-ref inputs name)" with "this-package-native-input". [native-inputs]: Use label-less style. --- gnu/packages/loko.scm | 72 +++++++++++++++++++++++-------------------- 1 file changed, 38 insertions(+), 34 deletions(-) diff --git a/gnu/packages/loko.scm b/gnu/packages/loko.scm index 449c62f1f0..cb189acb87 100644 --- a/gnu/packages/loko.scm +++ b/gnu/packages/loko.scm @@ -41,41 +41,45 @@ (define-public loko-scheme (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments - `(;; r7rs tests are a work in progress as of 0.7.0. - #:tests? #f - #:strip-binaries? #f - #:make-flags - (let ((out (assoc-ref %outputs "out"))) - (list - (string-append "PREFIX=" out) - (string-append "GDB_AUTOLOAD_PATH=" out "/share/gdb/auto-load"))) - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before 'build 'akku-fixes - (lambda* (#:key inputs #:allow-other-keys) - (delete-file "Akku.lock") - (substitute* "Akku.manifest" - (("\\(depends.*") "(depends)")) - (invoke "akku" "install") - (let ((dest "./.akku/lib/") - (source "/share/guile/site/3.0/")) - (for-each - (lambda (name) - ;; Symlink the scheme libraries so that Akku can find them - (symlink (string-append (assoc-ref inputs name) source name) - (string-append dest name))) - '("struct" "laesare" "pfds" "machine-code"))) - (substitute* ".akku/env" - (("/bin/sh") (which "sh"))) - #t))))) + (list + ;; r7rs tests are a work in progress as of 0.7.0. + #:tests? #f + #:strip-binaries? #f + #:make-flags + #~(list + (string-append "PREFIX=" #$output) + (string-append "GDB_AUTOLOAD_PATH=" #$output "/share/gdb/auto-load")) + #:phases + #~(modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'akku-fixes + (lambda _ + (delete-file "Akku.lock") + (substitute* "Akku.manifest" + (("\\(depends.*") "(depends)")) + (invoke "akku" "install") + (let ((dest "./.akku/lib/") + (source "/share/guile/site/3.0/")) + (for-each + (lambda (name prefix) + ;; Symlink the scheme libraries so that Akku can find them + (symlink (string-append prefix source name) + (string-append dest name))) + '("struct" "laesare" "pfds" "machine-code") + (list #$(this-package-native-input "guile-struct-pack") + #$(this-package-native-input "guile-laesare") + #$(this-package-native-input "guile-pfds") + #$(this-package-native-input "guile-machine-code")))) + (substitute* ".akku/env" + (("/bin/sh") (which "sh"))) + #t))))) (native-inputs - `(("akku" ,akku) - ("chez-scheme" ,(chez-scheme-for-system)) - ("struct" ,guile-struct-pack) - ("laesare" ,guile-laesare) - ("pfds" ,guile-pfds) - ("machine-code" ,guile-machine-code))) + (list akku + (chez-scheme-for-system) + guile-struct-pack + guile-laesare + guile-pfds + guile-machine-code)) (home-page "https://scheme.fail") (synopsis "Implementation of the algorithmic language Scheme") (description -- 2.38.1 --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0002-gnu-loko-scheme-Update-to-0.12.0.patch >From 907766669a0efdb16631361ee3f225da8a6767f1 Mon Sep 17 00:00:00 2001 From: Zhu Zihao Date: Tue, 29 Nov 2022 19:27:05 +0800 Subject: [PATCH 2/2] gnu: loko-scheme: Update to 0.12.0. * gnu/packages/loko.scm (loko-scheme): Update to 0.12.0. [arguments]<#:make-flags>: No need to specify GDB scripts directory. --- gnu/packages/loko.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/gnu/packages/loko.scm b/gnu/packages/loko.scm index cb189acb87..49dcc92d1e 100644 --- a/gnu/packages/loko.scm +++ b/gnu/packages/loko.scm @@ -18,6 +18,7 @@ (define-module (gnu packages loko) #:use-module (guix packages) + #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:prefix license:) @@ -29,7 +30,7 @@ (define-module (gnu packages loko) (define-public loko-scheme (package (name "loko-scheme") - (version "0.7.0") + (version "0.12.0") (source (origin (method git-fetch) @@ -37,7 +38,7 @@ (define-public loko-scheme (url "https://gitlab.com/weinholt/loko") (commit (string-append "v" version)))) (sha256 - (base32 "1441aarw3vy14zdxyab495ag2fch04v4j89krhbqnqfkz6mdi0vy")) + (base32 "12xp82z91qkp9q8lfp46s4sda8qgs472jic3js1kbykn4jzy7399")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments @@ -46,9 +47,7 @@ (define-public loko-scheme #:tests? #f #:strip-binaries? #f #:make-flags - #~(list - (string-append "PREFIX=" #$output) - (string-append "GDB_AUTOLOAD_PATH=" #$output "/share/gdb/auto-load")) + #~(list (string-append "PREFIX=" #$output)) #:phases #~(modify-phases %standard-phases (delete 'configure) -- 2.38.1 --=-=-= Content-Type: text/plain -- Retrieve my PGP public key: gpg --recv-keys B3EBC086AB0EBC0F45E0B4D433DB374BCEE4D9DC Zihao --=-=-=-- From debbugs-submit-bounces@debbugs.gnu.org Fri Dec 02 17:41:10 2022 Received: (at 59681-done) by debbugs.gnu.org; 2 Dec 2022 22:41:10 +0000 Received: from localhost ([127.0.0.1]:49281 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p1EiT-0002DP-Tn for submit@debbugs.gnu.org; Fri, 02 Dec 2022 17:41:10 -0500 Received: from eggs.gnu.org ([209.51.188.92]:38362) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p1EiR-0002D8-B3 for 59681-done@debbugs.gnu.org; Fri, 02 Dec 2022 17:41:08 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p1EiL-0000nf-Ks; Fri, 02 Dec 2022 17:41:01 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:In-Reply-To:Date:References:Subject:To: From; bh=fXZdDKcRoUZWzYcwust5qWApYk4JCk0BNV7Rb9vLKCY=; b=OVqwVI2lmSZEyaStICwu uDah1MdgRtxiaVPFkFdYYbXrNxbq5q10a0kWs3vivBU5Lutfn8nhvM3XaOkzAy6nteBfHgJ8aCSu0 ZFsub5D5vD6XthTqabCvs+Mjwm7sN5iNjpRpP6wkwrflf7vkCNSOE3I1ApUz2QSSHG5UXmWs7kWJy uFq0zbdGqiCoshGmDYNahHohOYe2njQdGKVoPZiXR/Wyg04pUU2msKmkXMa0c8Ovl50hXftR7cqp9 BFubp2JJIi7/AO2r2EBYNtn1WEgZC2bOohwu1YxxpL2RkyiZkttX7oZkOPXPC7/v6b+MvTAEbUsxf NmXLwGWFF73FEA==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201] helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p1ECk-00080P-IL; Fri, 02 Dec 2022 17:08:22 -0500 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Zhu Zihao Subject: Re: bug#59681: [PATCH 1/2] gnu: loko: Use G-expressions. References: <20221129152134.8917-1-all_but_last@163.com> <86edtlrczz.fsf@163.com> Date: Fri, 02 Dec 2022 23:08:21 +0100 In-Reply-To: <86edtlrczz.fsf@163.com> (Zhu Zihao's message of "Tue, 29 Nov 2022 23:30:37 +0800") Message-ID: <87ilitpiga.fsf_-_@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (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: 59681-done Cc: 59681-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, Zhu Zihao skribis: >>>From 0d85f05069ccb1bfa648def38375b981893e3601 Mon Sep 17 00:00:00 2001 > From: Zhu Zihao > Date: Tue, 29 Nov 2022 18:59:24 +0800 > Subject: [PATCH 1/2] gnu: loko-scheme: Use G-expressions. > > * gnu/packages/loko.scm (loko-scheme)[arguments]: Use G-expressions. > <#:phases>: In 'akku-fixes', replace "(assoc-ref inputs name)" with > "this-package-native-input". > [native-inputs]: Use label-less style. [...] >>>From 907766669a0efdb16631361ee3f225da8a6767f1 Mon Sep 17 00:00:00 2001 > From: Zhu Zihao > Date: Tue, 29 Nov 2022 19:27:05 +0800 > Subject: [PATCH 2/2] gnu: loko-scheme: Update to 0.12.0. > > * gnu/packages/loko.scm (loko-scheme): Update to 0.12.0. > [arguments]<#:make-flags>: No need to specify GDB scripts directory. Applied, thanks! Ludo=E2=80=99. From unknown Sat Aug 16 21:15:53 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sat, 31 Dec 2022 12:24:09 +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