From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id QMEqMwDogmKQcgEAbAwnHQ (envelope-from ) for ; Tue, 17 May 2022 02:10:40 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id +I9PMgDogmIWLwEAG6o9tA (envelope-from ) for ; Tue, 17 May 2022 02:10:40 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 63D8936E1A for ; Tue, 17 May 2022 02:10:40 +0200 (CEST) Received: from localhost ([::1]:42792 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nqknP-0008UY-Jd for larch@yhetil.org; Mon, 16 May 2022 20:10:39 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:37244) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nqkmr-0008T9-5P for bug-guix@gnu.org; Mon, 16 May 2022 20:10:11 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:33251) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nqkmo-0005v6-KS for bug-guix@gnu.org; Mon, 16 May 2022 20:10:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nqkmo-0003wS-FO for bug-guix@gnu.org; Mon, 16 May 2022 20:10:02 -0400 X-Loop: help-debbugs@gnu.org Subject: bug#55464: alternative way References: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name> In-Reply-To: <625DOHHScuzJjNNfdQOqaLqGWVTmXC-S9PcF2xU3nzsFYG4XYTSEt0NGXDSXnBqVHqYqr6AsEbTysg7y_fxoqeBkbEtCqMZrx9muo3DlvS0=@lendvai.name> Resent-From: Attila Lendvai Original-Sender: "Debbugs-submit" Resent-CC: bug-guix@gnu.org Resent-Date: Tue, 17 May 2022 00:10:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 55464 X-GNU-PR-Package: guix X-GNU-PR-Keywords: To: "55464@debbugs.gnu.org" <55464@debbugs.gnu.org> Received: via spool by 55464-submit@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 ) id 1nqkm8-0003vT-B3 for submit@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 ) id 1nqkm5-0003vC-7d for 55464@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 Message-ID: Feedback-ID: 28384833:user:proton MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-guix@gnu.org List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: Attila Lendvai Errors-To: bug-guix-bounces+larch=yhetil.org@gnu.org Sender: "bug-Guix" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1652746240; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=zwMFnZprBfcUeB3c5QhEWHfktmspGEonVxB+hIisBBc=; b=sPtg/toIl8XzKT36azM2CasqV3ybzpUSX28Y7anDz8/BUahjRhgT8tpObUBfwtt54EbSkV fhi8xLPueKbVCRGngQPu1SuqrJUDIcPnTNYxFI6N5CI4KXo967FASL8c83NsJ/sVE4x5mD eK/BW21KgTogJRKEELZzBZg8HPDwzZa8fxYLpRz2xYXATgaLBSBGLlQx8RIOEYOnb6e0ml WmJ8Dzpa7a/cFRgK2qY278ZDhaHmLHSAuuXqhmhZ/3vPJenUIzvowDMIuGEwLsNT4RBTSa EYkW0eRI7Hix0KLPbzrfRrw4fTuALdFQ/mq6r0q3k6VbmbKchFzcuHsEkXA1Iw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1652746240; a=rsa-sha256; cv=none; b=AAKRwJ3KFhWJ6zPUn6gMhP4d+TxXl6N4OXL63QrukbFjgpbqykheDktOfTfcWx25+ZdIxv a67qcIB4xCegU6YlG+2rJJrTeIfVK9AsAU52LNS96nsm21JbSq0ws+ZOLDTd6s2xr0VS1Q HyQ/c7Msf2p5wvFwvvD8gxb9ThykdSdK6jiEoGmdH2VdKOx4MdcG5a7joawFCItiN+Gl4n DQ3GFIejuB2sZPBQhr1cCdl1oOSD+Are9yHsw6F7+gghYS8YCHIauCd3pKSVGFhqki4O5B b0KXX+OPwmiKC5gvx/CrXxiDN/u3KUbK8slRFd8aCz0qmhycnPs7R9VnCGHJ5Q== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=lendvai.name header.s=protonmail3 header.b="SX6/yPhL"; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "bug-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="bug-guix-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 0.67 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=lendvai.name header.s=protonmail3 header.b="SX6/yPhL"; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "bug-guix-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="bug-guix-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 63D8936E1A X-Spam-Score: 0.67 X-Migadu-Scanner: scn0.migadu.com X-TUID: KVkJknQIgxH1 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)