From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Maxime Devos Newsgroups: gmane.lisp.guile.devel Subject: Re: Are source locations broken? Date: Fri, 25 Mar 2022 21:27:18 +0100 Message-ID: <3bb93b9b4afae36ef51cbbaa876a558214412fd3.camel@telenet.be> References: <73bb359c-54b3-02bf-9928-af4bcf513291@abou-samra.fr> <1b0c619131ac4c488ec48307db1d53aa542b1540.camel@telenet.be> Mime-Version: 1.0 Content-Type: multipart/signed; micalg="pgp-sha512"; protocol="application/pgp-signature"; boundary="=-Fx8AkTrYn72KVeNRIK5l" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="25338"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Evolution 3.38.3-1 To: Jean Abou Samra , guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Fri Mar 25 21:27:35 2022 Return-path: Envelope-to: guile-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nXqX1-0006QA-NI for guile-devel@m.gmane-mx.org; Fri, 25 Mar 2022 21:27:35 +0100 Original-Received: from localhost ([::1]:57870 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nXqX0-0006yA-Kk for guile-devel@m.gmane-mx.org; Fri, 25 Mar 2022 16:27:34 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:48312) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nXqWq-0006xz-BH for guile-devel@gnu.org; Fri, 25 Mar 2022 16:27:24 -0400 Original-Received: from [2a02:1800:120:4::f00:15] (port=41842 helo=andre.telenet-ops.be) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nXqWo-0005Dt-SK for guile-devel@gnu.org; Fri, 25 Mar 2022 16:27:24 -0400 Original-Received: from [172.20.10.5] ([188.189.39.43]) by andre.telenet-ops.be with bizsmtp id AkTK270040vrxzQ01kTKCj; Fri, 25 Mar 2022 21:27:19 +0100 In-Reply-To: <1b0c619131ac4c488ec48307db1d53aa542b1540.camel@telenet.be> DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=telenet.be; s=r22; t=1648240039; bh=GnjnvlZ4z21NtTepjB86OQV5NvZmw/vO1cNiCJKqd48=; h=Subject:From:To:Date:In-Reply-To:References; b=oW+iI+pFq9aRtowLujfHeDOqawOL+XFD4SVjtdQMwMAynvPJpn7l7JBr+N3RMG5VN MgvpitCpLYkFYWWuh5S2c6/sx2z5QjdN/rUCftiIdM7+FjXCpojt/8bvlIJuHT5RFm VY4Em12UNT7s/Q5pLizsel/Gk+vYr1HI9X0QK7AmTQ94EpZNxq54w7er3VpIe0Sfej XKTlUfqElaaTMLev/hheUL4StUFUThsbozfjjradC9NyzoEeA/uVGGNEgr8pYGu/uu 3Gu/WHg3bDb+M7GZyRu0zr/2pNrIJi0hW2ldfdBAkHkfZs2Gy32cSptuuzV7Mn0HBJ XZkC9+v9N1VzA== X-Host-Lookup-Failed: Reverse DNS lookup failed for 2a02:1800:120:4::f00:15 (failed) Received-SPF: pass client-ip=2a02:1800:120:4::f00:15; envelope-from=maximedevos@telenet.be; helo=andre.telenet-ops.be X-Spam_score_int: -19 X-Spam_score: -2.0 X-Spam_bar: -- X-Spam_report: (-2.0 / 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_LOW=-0.7, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane-mx.org@gnu.org Original-Sender: "guile-devel" Xref: news.gmane.io gmane.lisp.guile.devel:21176 Archived-At: --=-Fx8AkTrYn72KVeNRIK5l Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Maxime Devos schreef op vr 25-03-2022 om 21:22 [+0100]: Here's a minimal reproducer: $ cat trtr.scm: > foo $ guild compile trtr.scm > : warning: possibly unbound variable `foo' > wrote `$HOME/.cache/guile/ccache/3.0-LE-8-4.6/$HOME/trtr.scm.go' Curiously, it seems that source locations were actually recorded: (define-syntax pk-the-source-location (lambda (s) (pk 'invocation (syntax-source s)) (syntax-case s () ((_ stuff) (pk 'use (syntax-source #'stuff)) #'stuff)))) (lambda () (pk-the-source-location foo)) ;;; [...] ;;; (invocation ((filename . "$HOME/trtr.scm") (line . 8) (column . 11))) ;;; (use ((filename . "$HOME/trtr.scm") (line . 8) (column . 35))) ;;; : warning: possibly unbound variable `foo' ;;; compiled [...] --=-Fx8AkTrYn72KVeNRIK5l Content-Type: application/pgp-signature; name="signature.asc" Content-Description: This is a digitally signed message part Content-Transfer-Encoding: 7bit -----BEGIN PGP SIGNATURE----- iI0EABYKADUWIQTB8z7iDFKP233XAR9J4+4iGRcl7gUCYj4lphccbWF4aW1lZGV2 b3NAdGVsZW5ldC5iZQAKCRBJ4+4iGRcl7gO+AQCXqljPmHvGqm/KRh1Y6TB1Sk1I pJfRLoIkJk9xbCovSwEAhxZ4ukOGY5prgSLIgxYLJ0UDBjQ9FwtnyssWboOtjAo= =GgqO -----END PGP SIGNATURE----- --=-Fx8AkTrYn72KVeNRIK5l--