Received: (at 55464) by debbugs.gnu.org; 21 May 2022 16:39:25 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat May 21 12:39:25 2022
Received: from localhost ([127.0.0.1]:42855 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1nsS8M-00055E-HK
for submit <at> debbugs.gnu.org; Sat, 21 May 2022 12:39:25 -0400
Received: from eggs.gnu.org ([209.51.188.92]:33792)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <ludo@HIDDEN>) id 1nsS8J-000550-Ov
for 55464 <at> debbugs.gnu.org; Sat, 21 May 2022 12:39:17 -0400
Received: from fencepost.gnu.org ([2001:470:142:3::e]:54200)
by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
id 1nsS8D-0007Ic-Si; Sat, 21 May 2022 12:39:09 -0400
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=sCwc3HpTYSOeJoDXiIWPAFc7eZCg9RlMAdEJ3gI5TlA=; b=TRqTKM1bZlcjxwxmtllC
vMewEBEe5JOQHTk1visbnhn5MzSBEgugIVmN9Xr1drQp4ZY4usUNlUmjR0hG6w5Fgz4RzQHwkTM36
J2CIzvuTEnoh3D9bjOrGo6u1cyjOFaXBfRNCfAKcbiEyYE8vyjxv+C8EpmSsHkc5hNgSmJp1QVsLd
qy4dzBeeq0yb5X0Y77iGmTv5thts9uApLujtjWldqFpSSanG9IaH/hM28mp6JIHQ7rLbjz24XXt72
N6kUSDr2epUx55trwA9jyGmKQe7pSSxcQUSBj3JtMt5WW7KnGZ4u0o/WB2LaGNrG3eJBK8z5zYaAW
M5JIBSOFtr5jyA==;
Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:61446
helo=ribbon)
by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <ludo@HIDDEN>)
id 1nsS8D-0005T5-EV; Sat, 21 May 2022 12:39:09 -0400
From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
To: Attila Lendvai <attila@HIDDEN>
Subject: Re: bug#55464: (current-filename) is #f when guix pull'ing
References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
<87ee0r42ze.fsf@HIDDEN>
<tBSTE5N8NWJIWIIr3W0VBG9aUjGdWsKFUTgSrjGbYVI91hTDrHGg0SQ3UyG606XDPo37sTYLIfRNbvt-HRU1tDbjHlc7C9KBABKlQeF8edM=@lendvai.name>
X-URL: http://www.fdn.fr/~lcourtes/
X-Revolutionary-Date: 2 Prairial an 230 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: Sat, 21 May 2022 18:39:08 +0200
In-Reply-To: <tBSTE5N8NWJIWIIr3W0VBG9aUjGdWsKFUTgSrjGbYVI91hTDrHGg0SQ3UyG606XDPo37sTYLIfRNbvt-HRU1tDbjHlc7C9KBABKlQeF8edM=@lendvai.name>
(Attila Lendvai's message of "Thu, 19 May 2022 13:32:55 +0000")
Message-ID: <87mtfau9g3.fsf@HIDDEN>
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: -2.3 (--)
X-Debbugs-Envelope-To: 55464
Cc: 55464 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -3.3 (---)
Hi,
Attila Lendvai <attila@HIDDEN> skribis:
> is my analysis is correct, namely that cwd is not (always?) changed at ma=
croexpand time, and thus the implementation of INCLUDE is broken for relati=
ve paths? is this a bug to be fixed in guile? if so, shall i try to add a t=
est case for this somewhere?
=E2=80=98include=E2=80=99 does all its work at macro-expansion time. It=E2=
=80=99s documented
like so (info "(guile) Local Inclusion"):
-- Scheme Syntax: include file-name
Open FILE-NAME, at expansion-time, and read the Scheme forms that
it contains, splicing them into the location of the =E2=80=98include=
=E2=80=99,
within a =E2=80=98begin=E2=80=99.
If FILE-NAME is a relative path, it is searched for relative to the
path that contains the file that the =E2=80=98include=E2=80=99 form ap=
pears in.
And I believe that=E2=80=99s what it does=E2=80=94see =E2=80=98psyntax.scm=
=E2=80=99 for the actual code.
Now, if source location info were to be missing, it wouldn=E2=80=99t be abl=
e to
work for relative file names because it wouldn=E2=80=99t know the name of t=
he
source file that contains the =E2=80=98include=E2=80=99 form.
HTH!
Ludo=E2=80=99.
bug-guix@HIDDEN:bug#55464; Package guix.
Full text available.
Received: (at 55464) by debbugs.gnu.org; 19 May 2022 13:33:13 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu May 19 09:33:13 2022
Received: from localhost ([127.0.0.1]:34820 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1nrgHA-00014K-Ju
for submit <at> debbugs.gnu.org; Thu, 19 May 2022 09:33:13 -0400
Received: from mail-4323.proton.ch ([185.70.43.23]:44816)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <attila@HIDDEN>) id 1nrgH6-000143-TS
for 55464 <at> debbugs.gnu.org; Thu, 19 May 2022 09:33:11 -0400
Date: Thu, 19 May 2022 13:32:55 +0000
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=lendvai.name;
s=protonmail3; t=1652967181; x=1653226381;
bh=DBzPNGzdTpWw0V+U+H/quPvUOz5sM0sUTUozMdd2w3w=;
h=Date:To:From:Cc:Reply-To:Subject:Message-ID:In-Reply-To:
References:Feedback-ID:From:To:Cc:Date:Subject:Reply-To:
Feedback-ID:Message-ID;
b=oImCqzOMXBMDKQX+NDMfAuW8wbDqoR40kTCY2kRMypOveJqA5sU0YbRyJg9OWUjGV
S1YnsfSq/XigmNpGEMgXVklBF6jDtni2pNgi/HpVxIknZBlFb9SHju0tkVu1QbRVAm
czO4H8TLJJGKrQAyO/6gUYrzTlb3vBXuDSnUXZyShEAqX0fT4VUnHT3mRzgwtuDorO
MX+UXtSMYZjBSypL1mzayhPpESdv0lLvymE+qeadfWf1RK7g0F+udIAz4wUTP/nObT
nyJYf0ktqVKXw6mMSbhN20SSv7N7JMoJAD8zpAGIh/Vr+5XNHgSSF56jdgOUAKrJKi
OsSVU6FGI9ykg==
To: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN>
From: Attila Lendvai <attila@HIDDEN>
Subject: Re: bug#55464: (current-filename) is #f when guix pull'ing
Message-ID: <tBSTE5N8NWJIWIIr3W0VBG9aUjGdWsKFUTgSrjGbYVI91hTDrHGg0SQ3UyG606XDPo37sTYLIfRNbvt-HRU1tDbjHlc7C9KBABKlQeF8edM=@lendvai.name>
In-Reply-To: <87ee0r42ze.fsf@HIDDEN>
References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
<87ee0r42ze.fsf@HIDDEN>
Feedback-ID: 28384833:user:proton
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="b1_EYlBHj7mTizdY11McLtfJDaX23fY9uZj6Jp0vxyzUI"
X-Spam-Score: -0.0 (/)
X-Debbugs-Envelope-To: 55464
Cc: 55464 <at> debbugs.gnu.org
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Reply-To: Attila Lendvai <attila@HIDDEN>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)
This is a multi-part message in MIME format.
--b1_EYlBHj7mTizdY11McLtfJDaX23fY9uZj6Jp0vxyzUI
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
> > (define-public foo
> > (let ((hashes
> > (with-input-from-file
> > (string-append (dirname (current-filename))
> > "/foo.hashes")
> > read)))
> > (package ...)))
>
>
> Not fully answering your question, but if =E2=80=9Cfoo.hashes=E2=80=9D co=
ntains hashes
> for origins and similar, you could make =E2=80=9Cfoo.hashes=E2=80=9D cont=
ain something
> like:
>
> (list (base32 =E2=80=A6) =E2=80=A6)
>
> and, in the .scm, write:
>
> (include "foo.hashes")
>
> The =E2=80=98include=E2=80=99 directive includes the file at macro-expans=
ion time,
> similar to #include in C.
i did find guile's INCLUDE and tried to use it, but it also didn't work whe=
n guix pull'ing it. see the attached, now abandoned commit.
IIRC the issue is that the implementation of INCLUDE tries to load the file=
relative to the cwd, but cwd is not changed by the code that is driving th=
e compilation when guix pull'ing the code. (does each thread has its own cw=
d at all...?)
it works when i build it using `./pre-inst-env guix build foo`. i briefly t=
ried to analyse what's the difference between the two situations, but i ran=
out of steam.
it is the same reason i need to call READ like below in my current implemen=
tation:
(define (%read-module-relative-file module filename)
(with-input-from-file
(or (search-path
%load-path
(string-append (dirname (module-filename module))
"/" filename))
(error "%read-module-relative-file failed for" filename))
read))
...which is not beautiful.
> Back to the original issue, I suppose =E2=80=98current-filename=E2=80=
=99 return #f when
> this .scm is first loaded, before it=E2=80=99s compiled. Anyway, it=
=E2=80=99s probably
> best to load it at macro-expansion time as you suggested.
is my analysis is correct, namely that cwd is not (always?) changed at macr=
oexpand time, and thus the implementation of INCLUDE is broken for relative=
paths? is this a bug to be fixed in guile? if so, shall i try to add a tes=
t case for this somewhere?
--
=E2=80=A2 attila lendvai
=E2=80=A2 PGP: 963F 5D5F 45C7 DFCD 0A39
--
=E2=80=9CThe saddest aspect of life right now is that science gathers knowl=
edge faster than society gathers wisdom.=E2=80=9D
=09=E2=80=94 Isaac Asimov (1920=E2=80=931992)
--b1_EYlBHj7mTizdY11McLtfJDaX23fY9uZj6Jp0vxyzUI
Content-Type: text/x-patch; name=use-guile-include.patch
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename=use-guile-include.patch
RnJvbSAyMGY4MTU1OTI3MDg4NjJhMzM2ZjE5MzdhYTc5MmU1ZGMzNTZiMWI0IE1vbiBTZXAgMTcg
MDA6MDA6MDAgMjAwMQpGcm9tOiBBdHRpbGEgTGVuZHZhaSA8YXR0aWxhQGxlbmR2YWkubmFtZT4K
RGF0ZTogVHVlLCAxNyBNYXkgMjAyMiAxNDozNTowMSArMDIwMApTdWJqZWN0OiB1c2UgZ3VpbGUn
cyBJTkNMVURFIGluc3RlYWQgb2Ygb3VyIG93biB3YXkgdG8gcmVhZCBhIGZpbGUKCgpkaWZmIC0t
Z2l0IGEvYmluL3JlbGVhc2UtdXBkYXRlLWhlbHBlci5zY20gYi9iaW4vcmVsZWFzZS11cGRhdGUt
aGVscGVyLnNjbQppbmRleCA2NTQ1NjMwLi4zYzhlZGRiIDEwMDc1NQotLS0gYS9iaW4vcmVsZWFz
ZS11cGRhdGUtaGVscGVyLnNjbQorKysgYi9iaW4vcmVsZWFzZS11cGRhdGUtaGVscGVyLnNjbQpA
QCAtMTI5LDcgKzEyOSw3IEBACiAgICAgICAgICAgICAgICAgICAoZmFsc2UtaWYtZXhjZXB0aW9u
IChkZWxldGUtZmlsZSBkYi1maWxlKSkKICAgICAgICAgICAgICAgICAgICh3aXRoLW91dHB1dC10
by1maWxlIGRiLWZpbGUKICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoKQotICAgICAgICAg
ICAgICAgICAgICAgIChmb3JtYXQgI3QgIjs7IFRoaXMgZmlsZSB3YXMgZ2VuZXJhdGVkIGJ5IHRo
ZSB+QSBzY3JpcHR+JSIKKyAgICAgICAgICAgICAgICAgICAgICAoZm9ybWF0ICN0ICI7OyBUaGlz
IGZpbGUgd2FzIGdlbmVyYXRlZCBieSB0aGUgfkEgc2NyaXB0fiUnIgogICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgKGJhc2VuYW1lIChjdXJyZW50LWZpbGVuYW1lKSkpCiAgICAgICAgICAg
ICAgICAgICAgICAgKHdyaXRlIGRiKSkpKSkKICAgICAgICAgICAgICAgKGZvcm1hdCAjdCAiRmlu
aXNoZWQgc3VjY2Vzc2Z1bGx5fiUiKSkpCmRpZmYgLS1naXQgYS9zcmMvZ3VpeC1jcnlwdG8vcGFj
a2FnZS11dGlscy5zY20gYi9zcmMvZ3VpeC1jcnlwdG8vcGFja2FnZS11dGlscy5zY20KaW5kZXgg
MTg3Nzg5MC4uNjgwZDU5MSAxMDA2NDQKLS0tIGEvc3JjL2d1aXgtY3J5cHRvL3BhY2thZ2UtdXRp
bHMuc2NtCisrKyBiL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlLXV0aWxzLnNjbQpAQCAtMjEsMjYg
KzIxLDcgQEAKICAgIzp1c2UtbW9kdWxlIChndWl4IGRpYWdub3N0aWNzKQogICAjOnVzZS1tb2R1
bGUgKGd1aXggcGFja2FnZXMpCiAgICM6dXNlLW1vZHVsZSAoZ3VpeCB1aSkKLSAgIzp1c2UtbW9k
dWxlIChpY2UtOSBtYXRjaCkKLSAgIzpleHBvcnQgKHJlYWQtbW9kdWxlLXJlbGF0aXZlLWZpbGUp
KQotCi0oZGVmaW5lICglcmVhZC1tb2R1bGUtcmVsYXRpdmUtZmlsZSBtb2R1bGUgZmlsZW5hbWUp
Ci0gICh3aXRoLWlucHV0LWZyb20tZmlsZQotICAgICAgKG9yIChzZWFyY2gtcGF0aCAlbG9hZC1w
YXRoCi0gICAgICAgICAgICAgICAgICAgICAgIChzdHJpbmctYXBwZW5kIChkaXJuYW1lIChtb2R1
bGUtZmlsZW5hbWUgbW9kdWxlKSkKLSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgIi8iIGZpbGVuYW1lKSkKLSAgICAgICAgICAoZXJyb3IgIiVyZWFkLW1vZHVsZS1yZWxhdGl2
ZS1maWxlIGZhaWxlZCBmb3IiIGZpbGVuYW1lKSkKLSAgICByZWFkKSkKLQotKGRlZmluZS1zeW50
YXggcmVhZC1tb2R1bGUtcmVsYXRpdmUtZmlsZQotICAobGFtYmRhIChzeW4pCi0gICAgKHN5bnRh
eC1jYXNlIHN5biAoKQotICAgICAgKChfIGZpbGVuYW1lKQotICAgICAgICh3aXRoLXN5bnRheAot
ICAgICAgICAgICA7OyBSZWFkIHRoZSBmaWxlIGF0IGNvbXBpbGUgdGltZSBhbmQgbWFjcm9leHBh
bmQgdG8gdGhlIGZpcnN0IGZvcm0uCi0gICAgICAgICAgICgoZm9ybSAoJXJlYWQtbW9kdWxlLXJl
bGF0aXZlLWZpbGUgKGN1cnJlbnQtbW9kdWxlKQotICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgIChzeW50YXgtPmRhdHVtICMnZmlsZW5hbWUpKSkpCi0gICAgICAg
ICAjJydmb3JtKSkpKSkKKyAgIzp1c2UtbW9kdWxlIChpY2UtOSBtYXRjaCkpCiAKIChkZWZpbmUt
cHVibGljICh1bnN1cHBvcnRlZC1hcmNoIHBhY2thZ2UtbmFtZSBzeXN0ZW0pCiAgIChyYWlzZSAo
Zm9ybWF0dGVkLW1lc3NhZ2UKZGlmZiAtLWdpdCBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy9i
ZWUtYmluYXJ5Lmhhc2hlcyBiL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy9iZWUtYmluYXJ5Lmhh
c2hlcwppbmRleCA2ZGRjMWMwLi4zODJkMmM5IDEwMDY0NAotLS0gYS9zcmMvZ3VpeC1jcnlwdG8v
cGFja2FnZXMvYmVlLWJpbmFyeS5oYXNoZXMKKysrIGIvc3JjL2d1aXgtY3J5cHRvL3BhY2thZ2Vz
L2JlZS1iaW5hcnkuaGFzaGVzCkBAIC0xLDIgKzEsMiBAQAogOzsgVGhpcyBmaWxlIHdhcyBnZW5l
cmF0ZWQgYnkgdGhlIHJlbGVhc2UtdXBkYXRlLWhlbHBlci5zY20gc2NyaXB0Ci0oKCJhYXJjaDY0
LWxpbnV4IiAuICIxZmp4OWh3MjNkZzIwazRpejBpbWQzM3dzbmx3eGtqczl6MzliNGtha3pwZjRo
ODl3cm5sIikgKCJ4ODZfNjQtbGludXgiIC4gIjE4aHMxbXg1MGhkZ3F5MXh6cHBmbDBtY2Y3eTJo
MjNxczhxcjc0anprNWYzNGl4cWhnNGQiKSAoImk2ODYtbGludXgiIC4gIjBmczV3cWpoN3F2ZGNt
YmJubDM0bTFqNGphN3JsODMxZGl4YXozYnpuYjR5czdsbWxzanIiKSkKXCBObyBuZXdsaW5lIGF0
IGVuZCBvZiBmaWxlCisnKCgiYWFyY2g2NC1saW51eCIgLiAiMWZqeDlodzIzZGcyMGs0aXowaW1k
MzN3c25sd3hranM5ejM5YjRrYWt6cGY0aDg5d3JubCIpICgieDg2XzY0LWxpbnV4IiAuICIxOGhz
MW14NTBoZGdxeTF4enBwZmwwbWNmN3kyaDIzcXM4cXI3NGp6azVmMzRpeHFoZzRkIikgKCJpNjg2
LWxpbnV4IiAuICIwZnM1d3FqaDdxdmRjbWJibmwzNG0xajRqYTdybDgzMWRpeGF6M2J6bmI0eXM3
bG1sc2pyIikpClwgTm8gbmV3bGluZSBhdCBlbmQgb2YgZmlsZQpkaWZmIC0tZ2l0IGEvc3JjL2d1
aXgtY3J5cHRvL3BhY2thZ2VzL2V0aGVyZXVtLnNjbSBiL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdl
cy9ldGhlcmV1bS5zY20KaW5kZXggMDRiNWI3Ni4uMmU4ZjZlNCAxMDA2NDQKLS0tIGEvc3JjL2d1
aXgtY3J5cHRvL3BhY2thZ2VzL2V0aGVyZXVtLnNjbQorKysgYi9zcmMvZ3VpeC1jcnlwdG8vcGFj
a2FnZXMvZXRoZXJldW0uc2NtCkBAIC00Myw3ICs0Myw3IEBACiAgIChsZXQqICgoY29tbWl0LWhh
c2ggIjI1YzliNDlmIikgOyBmaXJzdCA4IGRpZ2l0cyBvZiB0aGUgdGFnZ2VkIGNvbW1pdCdzIGhh
c2gKICAgICAgICAgICh2ZXJzaW9uICIxLjEwLjE3IikKICAgICAgICAgIDs7IE5vdGU6IHVzZSBi
aW4vZ2V0aC11cGRhdGUtaGVscGVyLnNjbSB0byB1cGRhdGUgdGhlIGhhc2hlcwotICAgICAgICAg
KGhhc2hlcyAocmVhZC1tb2R1bGUtcmVsYXRpdmUtZmlsZSAiZ2V0aC1iaW5hcnkuaGFzaGVzIikp
KQorICAgICAgICAgKGhhc2hlcyAoaW5jbHVkZSAiZ2V0aC1iaW5hcnkuaGFzaGVzIikpKQogICAg
IChwYWNrYWdlCiAgICAgICAobmFtZSAiZ2V0aC1iaW5hcnkiKQogICAgICAgKHZlcnNpb24gdmVy
c2lvbikKQEAgLTE1MCw3ICsxNTAsNyBAQCBwcm9ncmFtbWluZyBsYW5ndWFnZS4iKQogICAobGV0
KiAoKHZlcnNpb24gIjEuMTIuOCIpCiAgICAgICAgICAoY29tbWl0ICIyZDNkZDQ4IikKICAgICAg
ICAgIDs7IE5vdGU6IHVzZSBiaW4vZ2V0aC11cGRhdGUtaGVscGVyLnNjbSB0byB1cGRhdGUgdGhl
IGhhc2hlcwotICAgICAgICAgKGhhc2hlcyAocmVhZC1tb2R1bGUtcmVsYXRpdmUtZmlsZSAibmV0
aGVybWluZC1iaW5hcnkuaGFzaGVzIikpKQorICAgICAgICAgKGhhc2hlcyAoaW5jbHVkZSAibmV0
aGVybWluZC1iaW5hcnkuaGFzaGVzIikpKQogICAgIChwYWNrYWdlCiAgICAgICAobmFtZSAibmV0
aGVybWluZC1iaW5hcnkiKQogICAgICAgKHZlcnNpb24gdmVyc2lvbikKZGlmZiAtLWdpdCBhL3Ny
Yy9ndWl4LWNyeXB0by9wYWNrYWdlcy9nZXRoLWJpbmFyeS5oYXNoZXMgYi9zcmMvZ3VpeC1jcnlw
dG8vcGFja2FnZXMvZ2V0aC1iaW5hcnkuaGFzaGVzCmluZGV4IDA5MGY4YWUuLjYxYzkxOWYgMTAw
NjQ0Ci0tLSBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy9nZXRoLWJpbmFyeS5oYXNoZXMKKysr
IGIvc3JjL2d1aXgtY3J5cHRvL3BhY2thZ2VzL2dldGgtYmluYXJ5Lmhhc2hlcwpAQCAtMSwyICsx
LDIgQEAKIDs7IFRoaXMgZmlsZSB3YXMgZ2VuZXJhdGVkIGJ5IHRoZSByZWxlYXNlLXVwZGF0ZS1o
ZWxwZXIuc2NtIHNjcmlwdAotKCgiYWFyY2g2NC1saW51eCIgLiAiMTkxMDB5cXJkN3o4ZjljZ2E0
YTUyaHlndjkzd24zc3loaTdpeDRoaTlrbTM0djFxaTg5ZCIpICgieDg2XzY0LWxpbnV4IiAuICIx
a2xqYnIza3MyZG42amQ4N2s3bDB4YWFzYms4MnJyeG1heGprbTJ2eTdjdmF4d2FxMGN3IikgKCJp
Njg2LWxpbnV4IiAuICIwNXBieWMyd3dxbGEyNjJyMDlpd3Y1MDZtZndpaDMxaTdsbjV6eWl5ODJo
a3ZiZHY4ZDRuIikpClwgTm8gbmV3bGluZSBhdCBlbmQgb2YgZmlsZQorJygoImFhcmNoNjQtbGlu
dXgiIC4gIjE5MTAweXFyZDd6OGY5Y2dhNGE1Mmh5Z3Y5M3duM3N5aGk3aXg0aGk5a20zNHYxcWk4
OWQiKSAoIng4Nl82NC1saW51eCIgLiAiMWtsamJyM2tzMmRuNmpkODdrN2wweGFhc2JrODJycnht
YXhqa20ydnk3Y3ZheHdhcTBjdyIpICgiaTY4Ni1saW51eCIgLiAiMDVwYnljMnd3cWxhMjYycjA5
aXd2NTA2bWZ3aWgzMWk3bG41enlpeTgyaGt2YmR2OGQ0biIpKQpcIE5vIG5ld2xpbmUgYXQgZW5k
IG9mIGZpbGUKZGlmZiAtLWdpdCBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy9uZXRoZXJtaW5k
LWJpbmFyeS5oYXNoZXMgYi9zcmMvZ3VpeC1jcnlwdG8vcGFja2FnZXMvbmV0aGVybWluZC1iaW5h
cnkuaGFzaGVzCmluZGV4IDFmNzJkYzkuLmUwMjBiNzkgMTAwNjQ0Ci0tLSBhL3NyYy9ndWl4LWNy
eXB0by9wYWNrYWdlcy9uZXRoZXJtaW5kLWJpbmFyeS5oYXNoZXMKKysrIGIvc3JjL2d1aXgtY3J5
cHRvL3BhY2thZ2VzL25ldGhlcm1pbmQtYmluYXJ5Lmhhc2hlcwpAQCAtMSwyICsxLDIgQEAKIDs7
IFRoaXMgZmlsZSB3YXMgZ2VuZXJhdGVkIGJ5IHRoZSByZWxlYXNlLXVwZGF0ZS1oZWxwZXIuc2Nt
IHNjcmlwdAotKCgiYWFyY2g2NC1saW51eCIgLiAiMW1zaHA1cHFtZm4wMmw2bjl2OHFqOGY2bm42
cTg4amI5cmg0Njltbm1ic3dtcjV6c3E2MSIpICgieDg2XzY0LWxpbnV4IiAuICIxZnpzMTJjMjRh
MzhhNnhqbDk0bXEyYjhxN2g2aG1mM3dhdzRqYWNsMXh2ZnF2M3c0OXJ3IikpClwgTm8gbmV3bGlu
ZSBhdCBlbmQgb2YgZmlsZQorJygoImFhcmNoNjQtbGludXgiIC4gIjFtc2hwNXBxbWZuMDJsNm45
djhxajhmNm5uNnE4OGpiOXJoNDY5bW5tYnN3bXI1enNxNjEiKSAoIng4Nl82NC1saW51eCIgLiAi
MWZ6czEyYzI0YTM4YTZ4amw5NG1xMmI4cTdoNmhtZjN3YXc0amFjbDF4dmZxdjN3NDlydyIpKQpc
IE5vIG5ld2xpbmUgYXQgZW5kIG9mIGZpbGUKZGlmZiAtLWdpdCBhL3NyYy9ndWl4LWNyeXB0by9w
YWNrYWdlcy9zd2FybS5zY20gYi9zcmMvZ3VpeC1jcnlwdG8vcGFja2FnZXMvc3dhcm0uc2NtCmlu
ZGV4IGZiNDkzNTkuLjhiMzNhZGYgMTAwNjQ0Ci0tLSBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdl
cy9zd2FybS5zY20KKysrIGIvc3JjL2d1aXgtY3J5cHRvL3BhY2thZ2VzL3N3YXJtLnNjbQpAQCAt
MzcsNyArMzcsNyBAQAogKGRlZmluZS1wdWJsaWMgYmVlLWJpbmFyeQogICAobGV0ICgodmVyc2lv
biAiMS42LjAiKQogICAgICAgICA7OyBOb3RlOiB1c2UgYmluL2dldGgtdXBkYXRlLWhlbHBlci5z
Y20gdG8gdXBkYXRlIHRoZSBoYXNoZXMKLSAgICAgICAgKGhhc2hlcyAocmVhZC1tb2R1bGUtcmVs
YXRpdmUtZmlsZSAiYmVlLWJpbmFyeS5oYXNoZXMiKSkpCisgICAgICAgIChoYXNoZXMgKGluY2x1
ZGUgImJlZS1iaW5hcnkuaGFzaGVzIikpKQogICAgIChwYWNrYWdlCiAgICAgICAobmFtZSAiYmVl
LWJpbmFyeSIpCiAgICAgICAodmVyc2lvbiB2ZXJzaW9uKQpkaWZmIC0tZ2l0IGEvc3JjL2d1aXgt
Y3J5cHRvL3BhY2thZ2VzL3pjYXNoLWJpbmFyeS5oYXNoZXMgYi9zcmMvZ3VpeC1jcnlwdG8vcGFj
a2FnZXMvemNhc2gtYmluYXJ5Lmhhc2hlcwppbmRleCAyNjdmYzdlLi41MWJhNTVjIDEwMDY0NAot
LS0gYS9zcmMvZ3VpeC1jcnlwdG8vcGFja2FnZXMvemNhc2gtYmluYXJ5Lmhhc2hlcworKysgYi9z
cmMvZ3VpeC1jcnlwdG8vcGFja2FnZXMvemNhc2gtYmluYXJ5Lmhhc2hlcwpAQCAtMSwyICsxLDIg
QEAKIDs7IFRoaXMgZmlsZSB3YXMgZ2VuZXJhdGVkIGJ5IHRoZSByZWxlYXNlLXVwZGF0ZS1oZWxw
ZXIuc2NtIHNjcmlwdAotKCgieDg2XzY0LWxpbnV4IiAuICIxYzZoZmxpNHdiZHcyaW01MWFrMXlm
ZzU5eG5zdjMzcXNpaWxyMjRueWdieGRwNnAxYXdtIikpClwgTm8gbmV3bGluZSBhdCBlbmQgb2Yg
ZmlsZQorJygoIng4Nl82NC1saW51eCIgLiAiMWM2aGZsaTR3YmR3MmltNTFhazF5Zmc1OXhuc3Yz
M3FzaWlscjI0bnlnYnhkcDZwMWF3bSIpKQpcIE5vIG5ld2xpbmUgYXQgZW5kIG9mIGZpbGUKZGlm
ZiAtLWdpdCBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy96Y2FzaC5zY20gYi9zcmMvZ3VpeC1j
cnlwdG8vcGFja2FnZXMvemNhc2guc2NtCmluZGV4IDQwZWY5MGUuLjFjYTQ3MzIgMTAwNjQ0Ci0t
LSBhL3NyYy9ndWl4LWNyeXB0by9wYWNrYWdlcy96Y2FzaC5zY20KKysrIGIvc3JjL2d1aXgtY3J5
cHRvL3BhY2thZ2VzL3pjYXNoLnNjbQpAQCAtNDAsNyArNDAsNyBAQAogCiAoZGVmaW5lLXB1Ymxp
YyB6Y2FzaC1iaW5hcnkKICAgOzsgTm90ZTogdXNlIGJpbi9nZXRoLXVwZGF0ZS1oZWxwZXIuc2Nt
IHRvIHVwZGF0ZSB0aGUgaGFzaGVzCi0gIChsZXQgKChoYXNoZXMgKHJlYWQtbW9kdWxlLXJlbGF0
aXZlLWZpbGUgInpjYXNoLWJpbmFyeS5oYXNoZXMiKSkpCisgIChsZXQgKChoYXNoZXMgKGluY2x1
ZGUgInpjYXNoLWJpbmFyeS5oYXNoZXMiKSkpCiAgICAgKHBhY2thZ2UKICAgICAgIChuYW1lICJ6
Y2FzaC1iaW5hcnkiKQogICAgICAgKHZlcnNpb24gIjQuNy4wIikK
--b1_EYlBHj7mTizdY11McLtfJDaX23fY9uZj6Jp0vxyzUI--
bug-guix@HIDDEN:bug#55464; Package guix.
Full text available.Received: (at 55464) by debbugs.gnu.org; 18 May 2022 09:14:33 +0000 From debbugs-submit-bounces <at> debbugs.gnu.org Wed May 18 05:14:33 2022 Received: from localhost ([127.0.0.1]:59026 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>) id 1nrFlA-0005NA-D0 for submit <at> debbugs.gnu.org; Wed, 18 May 2022 05:14:33 -0400 Received: from eggs.gnu.org ([209.51.188.92]:34616) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <ludo@HIDDEN>) id 1nrFl7-0005Mw-L3 for 55464 <at> debbugs.gnu.org; Wed, 18 May 2022 05:14:22 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:53846) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <ludo@HIDDEN>) id 1nrFl1-00061I-UZ; Wed, 18 May 2022 05:14:15 -0400 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=a/q3pdcONzq564l3Q1MWZyr1q6Gmef6hPcLdyrg6FGI=; b=CY5RbCXxbrDbERFnTR0V VHZyWpn1oPTBQKIWv+UbCgoaIoM6Kv/XW46gqyuZTO9Fxs4y/ursB/UhTr8kNsotP2Y4f2j6UzKJ+ cq/9o4ceG0gUC1+sk1hfHpCQ6UkAWrAqyLYpYMhlEkUADuvzZnI8PUKW2k1fT9XzvsmYsZHbicxdC +PJdHCtzx+kcSKcZsWPM11dMPzyA7IlsNUQyd0xQ3AWxQdDq628GIKavGZ61CohC7NnW3X6EkLNYV 9GhWXeVBshEqrX/4gZlfa+qE8b0ovnZm7zj71V9KwPM81tHfIRB4TgsuGx4CWG6WM4lFegGiZ7Hni OqOkLrzgXM3rGA==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201]:54185 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <ludo@HIDDEN>) id 1nrFl1-0007uD-He; Wed, 18 May 2022 05:14:15 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= <ludo@HIDDEN> To: Attila Lendvai <attila@HIDDEN> Subject: Re: bug#55464: (current-filename) is #f when guix pull'ing References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name> Date: Wed, 18 May 2022 11:14:13 +0200 In-Reply-To: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name> (Attila Lendvai's message of "Mon, 16 May 2022 21:04:10 +0000") Message-ID: <87ee0r42ze.fsf@HIDDEN> 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: -2.3 (--) X-Debbugs-Envelope-To: 55464 Cc: 55464 <at> debbugs.gnu.org X-BeenThere: debbugs-submit <at> debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: <debbugs-submit.debbugs.gnu.org> List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe> List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/> List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org> List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help> List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe> Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org> X-Spam-Score: -3.3 (---) Hi, Attila Lendvai <attila@HIDDEN> skribis: > the actual context where i'm encountering this is a package definition wh= ere i want to load some hashes from a file relative the to the .scm file: > > (define-public foo > (let ((hashes > (with-input-from-file > (string-append (dirname (current-filename)) > "/foo.hashes") > read))) > (package ...))) Not fully answering your question, but if =E2=80=9Cfoo.hashes=E2=80=9D cont= ains hashes for origins and similar, you could make =E2=80=9Cfoo.hashes=E2=80=9D contai= n something like: (list (base32 =E2=80=A6) =E2=80=A6) and, in the .scm, write: (include "foo.hashes") The =E2=80=98include=E2=80=99 directive includes the file at macro-expansio= n time, similar to #include in C. Back to the original issue, I suppose =E2=80=98current-filename=E2=80=99 re= turn #f when this .scm is first loaded, before it=E2=80=99s compiled. Anyway, it=E2=80= =99s probably best to load it at macro-expansion time as you suggested. HTH, Ludo=E2=80=99.
bug-guix@HIDDEN:bug#55464; Package guix.
Full text available.
Received: (at 55464) by debbugs.gnu.org; 17 May 2022 00:09:20 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 16 20:09:20 2022
Received: from localhost ([127.0.0.1]:55381 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1nqkm8-0003vT-B3
for submit <at> debbugs.gnu.org; Mon, 16 May 2022 20:09:20 -0400
Received: from mail-40136.proton.ch ([185.70.40.136]:27402)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <attila@HIDDEN>) id 1nqkm5-0003vC-7d
for 55464 <at> debbugs.gnu.org; Mon, 16 May 2022 20:09:19 -0400
Date: Tue, 17 May 2022 00:09:03 +0000
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=lendvai.name;
s=protonmail3; t=1652746149;
bh=zwMFnZprBfcUeB3c5QhEWHfktmspGEonVxB+hIisBBc=;
h=Date:To:From:Reply-To:Subject:Message-ID:Feedback-ID:From:To:Cc:
Date:Subject:Reply-To:Feedback-ID:Message-ID;
b=SX6/yPhLVNm+jpSe77rvdBeUsQYVxKsub0gS8T3ph/XvDmVkokQ+t0COFxsgysStH
hk/ubGr+YoF2p4tJkdxinfnFxoLQqL3l+HelkIfhJs7bzwCMgvfmoNcNpg1IEdffjh
ycJRKtQp7LCxxSK2e0+swE7AfaUg4dL0ujwy4ymkpIaPUQZ8NE57SOzf58hdSmSwZ7
tjZ871//ZYM43q+ii7MKbKB6QGu6BcHPgRWb6B21fEo6g4PxB433mR0Jak1vL/XzXL
bIYl7EX6BlpKJFtMWRhQ8ZTiwHoLlf/8lu3OcVZT4CJnzyuUJyrJZa5oCVp8VeSRX8
DgaMwlQSb21pA==
To: "55464 <at> debbugs.gnu.org" <55464 <at> debbugs.gnu.org>
From: Attila Lendvai <attila@HIDDEN>
Subject: alternative way
Message-ID: <d88ruR0MIQx5-PtTF8RaHdg15TJ3ItvylaHxhkm4cAMZp_AhKjAZmtYFC6u-X0zaInJLgOcmor783ZQiNRwhzLTeBFU8VVEMMPcvv7n0zwE=@lendvai.name>
Feedback-ID: 28384833:user:proton
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: 55464
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Reply-To: Attila Lendvai <attila@HIDDEN>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -1.0 (-)
as Ludovic kindly pointed out on IRC, i can use this instead:
(module-filename (current-module))
unfortunately, this returns a relative path, which is only useful using (se=
arch-path %load-path ...), which introduces some uncertainty about what act=
ually gets loaded depending on the runtime value of %load-path... :|
therefore, i decided to read the file at macroexpand-time. after some strug=
gle with hygienic macros:
(define-syntax read-module-relative-file
(lambda (syn)
(syntax-case syn ()
((_ filename)
(with-syntax
;; Read the file at compile time and macroexpand to the first fo=
rm.
((form (%read-module-relative-file (current-module)
(syntax->datum #'filename))))
#''form)))))
(define (%read-module-relative-file module filename)
(with-input-from-file
(or (search-path %load-path
(string-append (dirname (module-filename module))
"/" filename))
(error "%read-module-relative-file failed for" filename))
read))
not beautiful, but works.
--
=E2=80=A2 attila lendvai
=E2=80=A2 PGP: 963F 5D5F 45C7 DFCD 0A39
--
=E2=80=9CIt is just as difficult and dangerous to try to free a people that=
wants to remain servile as it is to enslave a people that wants to remain =
free.=E2=80=9D
=09=E2=80=94 Niccol=C3=B2 Machiavelli (1469=E2=80=931527)
bug-guix@HIDDEN:bug#55464; Package guix.
Full text available.
Received: (at submit) by debbugs.gnu.org; 16 May 2022 21:04:34 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Mon May 16 17:04:34 2022
Received: from localhost ([127.0.0.1]:55147 helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1nqhtB-0005VX-Iu
for submit <at> debbugs.gnu.org; Mon, 16 May 2022 17:04:34 -0400
Received: from lists.gnu.org ([209.51.188.17]:32996)
by debbugs.gnu.org with esmtp (Exim 4.84_2)
(envelope-from <attila@HIDDEN>) id 1nqht9-0005VO-Cj
for submit <at> debbugs.gnu.org; Mon, 16 May 2022 17:04:23 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:33520)
by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <attila@HIDDEN>)
id 1nqht9-0002dZ-7Y
for bug-guix@HIDDEN; Mon, 16 May 2022 17:04:23 -0400
Received: from mail-4317.proton.ch ([185.70.43.17]:47201)
by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
(Exim 4.90_1) (envelope-from <attila@HIDDEN>)
id 1nqht5-0008WS-Or
for bug-guix@HIDDEN; Mon, 16 May 2022 17:04:22 -0400
Date: Mon, 16 May 2022 21:04:10 +0000
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=lendvai.name;
s=protonmail3; t=1652735054;
bh=8vcFFcQ/lKaU42XEgyH5HPNb19AU9KZwusObGmSju/I=;
h=Date:To:From:Reply-To:Subject:Message-ID:Feedback-ID:From:To:Cc:
Date:Subject:Reply-To:Feedback-ID:Message-ID;
b=amyUJtDKJsTWPyxrZZx82jdSk6L+/OlGOY9pAmegCk1iIf2oFk9Rbn+D17Z/JZWNJ
ws6pPJ+Vl+uoWxLKN5jzBWZY0PWcTKnFJbkV0o2WEbs/T0pesETcpK1tmZWNWyx4WI
ue1f3qDOjs5/dIhCAHbmQd92Afys0+G1H5v9JV54aFgBJUvAxsefvw1NqX7hIbGU+u
Nh1XeyKQm9iER8corR5yiTPu7EgIzgm6MW/TwAzqnoTQ1kVG5Humuz5/daY22GOuDP
4cLjf1HX8xyPwBMVFr7ecrgYBEehBZ5tsuDgkF/BKPD5SC8bVKENHRmJBmrH+GDuCJ
F7le/vVxiofzw==
To: "bug-guix@HIDDEN" <bug-guix@HIDDEN>
From: Attila Lendvai <attila@HIDDEN>
Subject: (current-filename) is #f when guix pull'ing
Message-ID: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
Feedback-ID: 28384833:user:proton
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Received-SPF: pass client-ip=185.70.43.17; envelope-from=attila@HIDDEN;
helo=mail-4317.proton.ch
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, SPF_HELO_NONE=0.001,
SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Reply-To: Attila Lendvai <attila@HIDDEN>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)
the actual context where i'm encountering this is a package definition wher=
e i want to load some hashes from a file relative the to the .scm file:
(define-public foo
(let ((hashes
(with-input-from-file
(string-append (dirname (current-filename))
"/foo.hashes")
read)))
(package ...)))
this works fine in a `./pre-inst-env build foo`, but i think there's someth=
ing special in how `guix pull` compiles the scm files, and (c-f) expands to=
#f. guix pull works, but afterwards:
$ guix system --on-error=3Dbacktrace reconfigure --allow-downgrades /etc/gu=
ix/config.scm
guix system: error: failed to load '/etc/guix/config.scm':
guix-crypto/packages/ethereum.scm:47:36: In procedure scm_to_utf8_stringn: =
Wrong type argument in position 1 (expecting string): #f
In ice-9/boot-9.scm:
222:29 19 (map1 (((gnu)) ((gnu system)) ((gnu system #)) ((# =E2=80=
=A6)) =E2=80=A6))
222:29 18 (map1 (((gnu system)) ((gnu system file-systems)) (#) =
=E2=80=A6))
222:29 17 (map1 (((gnu system file-systems)) ((oop goops)) ((=E2=80=
=A6)) =E2=80=A6))
222:29 16 (map1 (((oop goops)) ((shepherd service)) ((nongnu =E2=80=
=A6)) =E2=80=A6))
222:29 15 (map1 (((shepherd service)) ((nongnu packages linux)) =
=E2=80=A6))
222:29 14 (map1 (((nongnu packages linux)) ((guix-crypto # #)) # =
=E2=80=A6))
222:17 13 (map1 (((guix-crypto packages ethereum)) ((# # #)) (#) =
=E2=80=A6))
3936:31 12 (_ ((guix-crypto packages ethereum)))
3327:17 11 (resolve-interface (guix-crypto packages ethereum) # _ # =
=E2=80=A6)
In ice-9/threads.scm:
390:8 10 (_ _)
In ice-9/boot-9.scm:
3253:13 9 (_)
In ice-9/threads.scm:
390:8 8 (_ _)
In ice-9/boot-9.scm:
3544:20 7 (_)
2836:4 6 (save-module-excursion #<procedure 7f056144d810 at ice-=
=E2=80=A6>)
3564:26 5 (_)
In unknown file:
4 (primitive-load-path "guix-crypto/packages/ethereum" #<=
=E2=80=A6>)
In guix-crypto/packages/ethereum.scm:
47:36 3 (_)
In unknown file:
2 (dirname #f)
In ice-9/boot-9.scm:
1685:16 1 (raise-exception _ #:continuable? _)
1780:13 0 (_ #<&compound-exception components: (#<&assertion-fail=
=E2=80=A6>)
i would be happy to avoid using (c-f), but i failed to find a way in Guile'=
s module reflection API.
--
=E2=80=A2 attila lendvai
=E2=80=A2 PGP: 963F 5D5F 45C7 DFCD 0A39
--
=E2=80=9CPeople who have never gone to school have never developed negative=
attitudes toward exploring their world.=E2=80=9D
=09=E2=80=94 Grace Llewellyn
Attila Lendvai <attila@HIDDEN>:bug-guix@HIDDEN.
Full text available.bug-guix@HIDDEN:bug#55464; Package guix.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.