GNU logs - #55464, boring messages


Message sent to bug-guix@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: bug#55464: (current-filename) is #f when guix pull'ing
Resent-From: Attila Lendvai <attila@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guix@HIDDEN
Resent-Date: Mon, 16 May 2022 21:05:01 +0000
Resent-Message-ID: <handler.55464.B.165273507421187 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: report 55464
X-GNU-PR-Package: guix
X-GNU-PR-Keywords: 
To: 55464 <at> debbugs.gnu.org
X-Debbugs-Original-To: "bug-guix@HIDDEN" <bug-guix@HIDDEN>
Reply-To: Attila Lendvai <attila@HIDDEN>
Received: via spool by submit <at> debbugs.gnu.org id=B.165273507421187
          (code B ref -1); Mon, 16 May 2022 21:05:01 +0000
Received: (at submit) by debbugs.gnu.org; 16 May 2022 21:04:34 +0000
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==
From: Attila Lendvai <attila@HIDDEN>
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-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: -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





Message sent:


Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable
MIME-Version: 1.0
X-Mailer: MIME-tools 5.505 (Entity 5.505)
Content-Type: text/plain; charset=utf-8
X-Loop: help-debbugs@HIDDEN
From: help-debbugs@HIDDEN (GNU bug Tracking System)
To: Attila Lendvai <attila@HIDDEN>
Subject: bug#55464: Acknowledgement ((current-filename) is #f when guix
 pull'ing)
Message-ID: <handler.55464.B.165273507421187.ack <at> debbugs.gnu.org>
References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
X-Gnu-PR-Message: ack 55464
X-Gnu-PR-Package: guix
Reply-To: 55464 <at> debbugs.gnu.org
Date: Mon, 16 May 2022 21:05:02 +0000

Thank you for filing a new bug report with debbugs.gnu.org.

This is an automatically generated reply to let you know your message
has been received.

Your message is being forwarded to the package maintainers and other
interested parties for their attention; they will reply in due course.

Your message has been sent to the package maintainer(s):
 bug-guix@HIDDEN

If you wish to submit further information on this problem, please
send it to 55464 <at> debbugs.gnu.org.

Please do not send mail to help-debbugs@HIDDEN unless you wish
to report a problem with the Bug-tracking system.

--=20
55464: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D55464
GNU Bug Tracking System
Contact help-debbugs@HIDDEN with problems


Message sent to bug-guix@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: bug#55464: alternative way
References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
In-Reply-To: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name>
Resent-From: Attila Lendvai <attila@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guix@HIDDEN
Resent-Date: Tue, 17 May 2022 00:10:02 +0000
Resent-Message-ID: <handler.55464.B55464.165274616015099 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 55464
X-GNU-PR-Package: guix
X-GNU-PR-Keywords: 
To: "55464 <at> debbugs.gnu.org" <55464 <at> debbugs.gnu.org>
Reply-To: Attila Lendvai <attila@HIDDEN>
Received: via spool by 55464-submit <at> debbugs.gnu.org id=B55464.165274616015099
          (code B ref 55464); Tue, 17 May 2022 00:10:02 +0000
Received: (at 55464) by debbugs.gnu.org; 17 May 2022 00:09:20 +0000
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==
From: Attila Lendvai <attila@HIDDEN>
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-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: -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)





Message sent to bug-guix@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: bug#55464: (current-filename) is #f when guix pull'ing
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guix@HIDDEN
Resent-Date: Wed, 18 May 2022 09:15:02 +0000
Resent-Message-ID: <handler.55464.B55464.165286527320672 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 55464
X-GNU-PR-Package: guix
X-GNU-PR-Keywords: 
To: Attila Lendvai <attila@HIDDEN>
Cc: 55464 <at> debbugs.gnu.org
Received: via spool by 55464-submit <at> debbugs.gnu.org id=B55464.165286527320672
          (code B ref 55464); Wed, 18 May 2022 09:15:02 +0000
Received: (at 55464) by debbugs.gnu.org; 18 May 2022 09:14:33 +0000
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: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
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-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.




Message sent to bug-guix@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: bug#55464: (current-filename) is #f when guix pull'ing
Resent-From: Attila Lendvai <attila@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guix@HIDDEN
Resent-Date: Thu, 19 May 2022 13:34:02 +0000
Resent-Message-ID: <handler.55464.B55464.16529671934117 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 55464
X-GNU-PR-Package: guix
X-GNU-PR-Keywords: 
To: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Cc: 55464 <at> debbugs.gnu.org
Reply-To: Attila Lendvai <attila@HIDDEN>
Received: via spool by 55464-submit <at> debbugs.gnu.org id=B55464.16529671934117
          (code B ref 55464); Thu, 19 May 2022 13:34:02 +0000
Received: (at 55464) by debbugs.gnu.org; 19 May 2022 13:33:13 +0000
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==
From: Attila Lendvai <attila@HIDDEN>
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-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: -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--





Message sent to bug-guix@HIDDEN:


X-Loop: help-debbugs@HIDDEN
Subject: bug#55464: (current-filename) is #f when guix pull'ing
Resent-From: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
Resent-CC: bug-guix@HIDDEN
Resent-Date: Sat, 21 May 2022 16:40:02 +0000
Resent-Message-ID: <handler.55464.B55464.165315116519558 <at> debbugs.gnu.org>
Resent-Sender: help-debbugs@HIDDEN
X-GNU-PR-Message: followup 55464
X-GNU-PR-Package: guix
X-GNU-PR-Keywords: 
To: Attila Lendvai <attila@HIDDEN>
Cc: 55464 <at> debbugs.gnu.org
Received: via spool by 55464-submit <at> debbugs.gnu.org id=B55464.165315116519558
          (code B ref 55464); Sat, 21 May 2022 16:40:02 +0000
Received: (at 55464) by debbugs.gnu.org; 21 May 2022 16:39:25 +0000
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: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@HIDDEN>
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-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.





Last modified: Sat, 21 May 2022 16:45:01 UTC

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997 nCipher Corporation Ltd, 1994-97 Ian Jackson.