GNU bug report logs - #21613
Include messes up when compiling file in load path

Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.

Package: guile; Reported by: taylanbayirli@HIDDEN (Taylan Ulrich Bayırlı/Kammer); dated Sun, 4 Oct 2015 14:37:02 UTC; Maintainer for guile is bug-guile@HIDDEN.

Message received at 21613 <at> debbugs.gnu.org:


Received: (at 21613) by debbugs.gnu.org; 24 Jun 2016 14:49:19 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Jun 24 10:49:19 2016
Received: from localhost ([127.0.0.1]:54432 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1bGSQ3-0004zl-0V
	for submit <at> debbugs.gnu.org; Fri, 24 Jun 2016 10:49:19 -0400
Received: from pb-sasl2.pobox.com ([64.147.108.67]:59709
 helo=sasl.smtp.pobox.com) by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <wingo@HIDDEN>) id 1bGSQ1-0004zb-EZ
 for 21613 <at> debbugs.gnu.org; Fri, 24 Jun 2016 10:49:17 -0400
Received: from sasl.smtp.pobox.com (unknown [127.0.0.1])
 by pb-sasl2.pobox.com (Postfix) with ESMTP id DEF9721EFF;
 Fri, 24 Jun 2016 10:49:13 -0400 (EDT)
DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=pobox.com; h=from:to:cc
 :subject:references:date:in-reply-to:message-id:mime-version
 :content-type:content-transfer-encoding; s=sasl; bh=yODMHfi2r/s2
 X4lC7BVADazr2YA=; b=rv28Y53o01K9L2ViE8k8QG7rdH6i1cD6E+0gNKYF4p5k
 zKjOOtNXYGNun27IPac8Hd8TjY8lNCv+N0eOwzbuoebTqmpk+lgL/7tS4nEKb0Ba
 bJU+kF/PCkkVZ6sZkR2LVhxqOmThPnK7TvpTJPO5AUwscCvELs6MxSFsMqhZwBw=
DomainKey-Signature: a=rsa-sha1; c=nofws; d=pobox.com; h=from:to:cc
 :subject:references:date:in-reply-to:message-id:mime-version
 :content-type:content-transfer-encoding; q=dns; s=sasl; b=QwaAcH
 e6otaHGMsGVAP95Ym4Kusd3EjljVlegrS2WgK72eGBDObtbbXssssym68W4TERGs
 JVQ/Epqm+lt10ZlJDX5hEnBLuFoZAsN+FfwUS4qO/m0f/52qFW7/uDkWqSJlBQEM
 dD391j5zBr2vo2vPuFVWEHJr0mqdooKamZVFM=
Received: from pb-sasl2.nyi.icgroup.com (unknown [127.0.0.1])
 by pb-sasl2.pobox.com (Postfix) with ESMTP id D6AFC21EFD;
 Fri, 24 Jun 2016 10:49:13 -0400 (EDT)
Received: from clucks (unknown [88.160.190.192])
 (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by pb-sasl2.pobox.com (Postfix) with ESMTPSA id 224C221EFC;
 Fri, 24 Jun 2016 10:49:13 -0400 (EDT)
From: Andy Wingo <wingo@HIDDEN>
To: taylanbayirli@HIDDEN (Taylan Ulrich =?utf-8?Q?=22Bay=C4=B1rl=C4=B1?=
 =?utf-8?Q?=2FKammer=22?=)
Subject: Re: bug#21613: Include messes up when compiling file in load path
References: <8737xqaefu.fsf@HIDDEN>
Date: Fri, 24 Jun 2016 16:49:05 +0200
In-Reply-To: <8737xqaefu.fsf@HIDDEN> ("Taylan Ulrich
 =?utf-8?Q?=5C=22Bay=C4=B1rl=C4=B1=2FKammer=5C=22=22's?= message of "Sun, 04
 Oct 2015 16:36:21 +0200")
Message-ID: <87d1n6fxr2.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
X-Pobox-Relay-ID: D12F9F50-3A1A-11E6-A84B-28A6F1301B6D-02397024!pb-sasl2.pobox.com
X-Spam-Score: -1.4 (-)
X-Debbugs-Envelope-To: 21613
Cc: 21613 <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: -1.4 (-)

On Sun 04 Oct 2015 16:36, taylanbayirli@HIDDEN (Taylan Ulrich "Bay=C4=B1=
rl=C4=B1/Kammer") writes:

> $ mkdir test
> $ echo '(include "test2.scm")' > test/test1.scm
> $ echo '(display "foo\n")' > test/test2.scm
> $ pwd
> /home/taylan
> $ export GUILE_LOAD_PATH=3D/home/taylan/test
> $ unset GUILE_LOAD_COMPILED_PATH
> $ guile -L test test/test1.scm
...
> ERROR: In procedure open-file:
> ERROR: In procedure open-file: No such file or directory: "./test2.scm"

The way this works is that test/test1.scm is opened.  To set the
port-filename of the port, Guile uses "relative" canonicalization of the
path, which will result in "test1.scm" being the port-filename, as we
found test1.scm in test/.  After that it all breaks down -- the
intention is for `include' of a relative path to look for it relative to
the dirname of the file doing the including, but (dirname "test1.scm")
is ".", so it looks for "./test2.scm"... bogus.

The intention of relative canonicalization is to allow for errors to be
signalled relative to a path-relative file name.  For example in a
recent backtrace:

In ice-9/psyntax.scm:
  1200:36  5 (expand-top-sequence ((include "test2.scm")) _ _ #f e # #)

The fact that it's ice-9/psyntax.scm comes from there.  You can build
the file locally and install it and it the debugging information doesn't
embed the full dirname of the build tree.

But, for that to work well, you really need `include-from-path' and not
`include'.  All of the uses of `include' in Guile itself are really
`include-from-path'.  And if you use `include' in a file which is in a
path... well I guess that's not working.

Clearly going backwards from a relative path to an absolute path is not
going to work.  I guess my only proposal would be to include the
absolute path of a file port, in addition to the relative path.  I guess
that would be somewhere around the call to fport_canonicalize_filename
in fports.c.

Thoughts?

Andy




Information forwarded to bug-guile@HIDDEN:
bug#21613; Package guile. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 21 Jun 2016 08:49:28 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Tue Jun 21 04:49:27 2016
Received: from localhost ([127.0.0.1]:48536 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1bFHN9-0003A0-M2
	for submit <at> debbugs.gnu.org; Tue, 21 Jun 2016 04:49:27 -0400
Received: from eggs.gnu.org ([208.118.235.92]:34886)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHN7-00039l-Ry
 for submit <at> debbugs.gnu.org; Tue, 21 Jun 2016 04:49:26 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHMy-0000yn-Qg
 for submit <at> debbugs.gnu.org; Tue, 21 Jun 2016 04:49:20 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
 T_DKIM_INVALID autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:45112)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHMy-0000yh-Nt
 for submit <at> debbugs.gnu.org; Tue, 21 Jun 2016 04:49:16 -0400
Received: from eggs.gnu.org ([2001:4830:134:3::10]:54071)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHMw-00077b-MF
 for bug-guile@HIDDEN; Tue, 21 Jun 2016 04:49:15 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHMu-0000yH-Tz
 for bug-guile@HIDDEN; Tue, 21 Jun 2016 04:49:13 -0400
Received: from mail-lf0-x22f.google.com ([2a00:1450:4010:c07::22f]:34647)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1bFHMu-0000yD-ME
 for bug-guile@HIDDEN; Tue, 21 Jun 2016 04:49:12 -0400
Received: by mail-lf0-x22f.google.com with SMTP id h129so12832952lfh.1
 for <bug-guile@HIDDEN>; Tue, 21 Jun 2016 01:49:12 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
 h=from:to:cc:subject:references:date:in-reply-to:message-id
 :user-agent:mime-version;
 bh=QHKrBEaan7N3VPuzlCXfPLP2Es3xQ74Ddo8Mm9Xsy6A=;
 b=cnaXcaSfi4QfgzI5m8Hvl6Si73hunUB5aQhJvIbArlu7SMP+uUhBFMV22NCJyvRY6O
 JhQYUaorSAbUW2BEFOD+RnuI/rzqs8vYIUFGj9hF41lHzqBF6jK79MevzIlxBRLCQGtp
 CVL968Puc/A1AxuYeZho0YdmFFJmX7UOYpARN/INW+h2Xe/OWe8Jde5Io1K9dv+0oobk
 fy93YQENV56bC+NhvUg91aZea45GN5WemIwAPlZfyf6NbFIAT8fOLYTTLrY/D1fFz4aI
 08GkxJBYJwY7mwlVKaY/rNuyPK5J6H6SAN5m2IaO7gLjpeuaPz4ER6JO/s1EAhhkd0YC
 ipuQ==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20130820;
 h=x-gm-message-state:from:to:cc:subject:references:date:in-reply-to
 :message-id:user-agent:mime-version;
 bh=QHKrBEaan7N3VPuzlCXfPLP2Es3xQ74Ddo8Mm9Xsy6A=;
 b=VJMTxTqpymeCVMhU6kIpQA6cPpwlZk012/Mwm86Q9UFY1PbnzTnZ/StWg7MCcSFZTl
 q/DG4p/qGw+fB3KbOwG116GAklRVQCAaAy0qsww/B2g1MckOTmBROcwuA3m43D2KLcuv
 xHQSxyxI2ZfjO6MjxrKoJP6hkNIBBuwFzkHxaAgxvtGWC3LsUrn9KffZ5AJQlMmvZ9HI
 dQtAQb+1jVIEo5gDf8O5zMTBgp0PCHjGqLUsGRDKsroHDbrzxM/AdIiiLtQLiKik+EsM
 clEmBTUnN1yAZjMQORn4oYwqjnyathidjBDHp9keqHUK1+6+gZCOmnc6ps7exlPt9XpS
 rEFA==
X-Gm-Message-State: ALyK8tJdisvFMzPgk3ojOCV6jGSljYbyvVJdaDxEMnuSKEXyMLxMqp6m56xWzIhuTy9Qag==
X-Received: by 10.28.161.133 with SMTP id k127mr2110092wme.52.1466498951655;
 Tue, 21 Jun 2016 01:49:11 -0700 (PDT)
Received: from T420.taylan ([2a02:908:c30:3540:221:ccff:fe66:68f0])
 by smtp.gmail.com with ESMTPSA id o2sm41109198wjp.26.2016.06.21.01.49.10
 (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Tue, 21 Jun 2016 01:49:10 -0700 (PDT)
From: taylanbayirli@HIDDEN (Taylan Ulrich =?utf-8?Q?Bay=C4=B1rl=C4=B1?=
 =?utf-8?Q?=2FKammer?=)
To: bug-guile@HIDDEN
Subject: Re: Include messes up when compiling file in load path
References: <8737xqaefu.fsf@HIDDEN> <87twq68dvd.fsf@HIDDEN>
Date: Tue, 21 Jun 2016 10:49:10 +0200
In-Reply-To: <87twq68dvd.fsf@HIDDEN> ("Taylan Ulrich
 \=\?utf-8\?Q\?\=5C\=22Bay\=C4\=B1rl\=C4\=B1\=2FKammer\=5C\=22\=22's\?\=
 message of "Mon, 05 Oct 2015 00:31:34 +0200")
Message-ID: <8760t3lyex.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic]
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -4.0 (----)
X-Debbugs-Envelope-To: submit
Cc: wingo@HIDDEN
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: -4.0 (----)

Ping with CC to Andy. :-)




Information forwarded to bug-guile@HIDDEN:
bug#21613; Package guile. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 4 Oct 2015 22:31:46 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Oct 04 18:31:46 2015
Received: from localhost ([127.0.0.1]:54707 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1Ziron-0000Kh-Bn
	for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 18:31:45 -0400
Received: from eggs.gnu.org ([208.118.235.92]:36107)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Zirok-0000KX-3Z
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 18:31:43 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Ziroi-0002UV-Sn
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 18:31:41 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
 T_DKIM_INVALID autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:48703)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Ziroi-0002UQ-Qa
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 18:31:40 -0400
Received: from eggs.gnu.org ([2001:4830:134:3::10]:46105)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Ziroh-0003V6-Mx
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 18:31:40 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Ziroe-0002TN-HA
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 18:31:39 -0400
Received: from mail-wi0-x236.google.com ([2a00:1450:400c:c05::236]:37412)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1Ziroe-0002TD-AB
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 18:31:36 -0400
Received: by wicfx3 with SMTP id fx3so91139859wic.0
 for <bug-guile@HIDDEN>; Sun, 04 Oct 2015 15:31:35 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
 h=from:to:subject:references:date:in-reply-to:message-id:user-agent
 :mime-version:content-type;
 bh=udEWudP8OaBgbfT/WCY03CLxP4rvPv2GwsDwU0QOEd8=;
 b=A5owJsxN9F455aIH3QB3dZOy9MT4RIpgMXT3VoTivPB6f28rkyOyVXNhxfsFqUpL4k
 b8BZBxMUd+f8yFjpSe5ojqDbkXjcfKzsxQe1PAVu7MsTymkdvYiZiTU9m65YGlrzFATH
 kQqoOTd/5GVsvWZuGzceBmBUYgb4Cxsi4Gt0jPSV5YWDGCxsWdQFyHl0IGB1WSe+lw3t
 CB+HWPJu6HyQgI637DmfY/M16u9gduM4bOfFiwSov+xNmbBn8lQgret37VvenuPJJRdH
 1miFWtNoNlOKj1qiLafgdN+dy9qoP2vNiSOJOybtVeEaRdNkFN393fsMWvzyr0pYODTW
 /FBQ==
X-Received: by 10.180.92.230 with SMTP id cp6mr7416157wib.80.1443997895861;
 Sun, 04 Oct 2015 15:31:35 -0700 (PDT)
Received: from T420.taylan (aftr-37-24-151-116.unity-media.net.
 [37.24.151.116])
 by smtp.gmail.com with ESMTPSA id ka10sm23611167wjc.30.2015.10.04.15.31.34
 for <bug-guile@HIDDEN>
 (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Sun, 04 Oct 2015 15:31:34 -0700 (PDT)
From: taylanbayirli@HIDDEN (Taylan Ulrich =?utf-8?Q?Bay=C4=B1rl=C4=B1?=
 =?utf-8?Q?=2FKammer?=)
To: bug-guile@HIDDEN
Subject: Re: Include messes up when compiling file in load path
References: <8737xqaefu.fsf@HIDDEN>
Date: Mon, 05 Oct 2015 00:31:34 +0200
In-Reply-To: <8737xqaefu.fsf@HIDDEN> ("Taylan Ulrich
 \=\?utf-8\?Q\?\=5C\=22Bay\=C4\=B1rl\=C4\=B1\=2FKammer\=5C\=22\=22's\?\=
 message of "Sun, 04 Oct 2015 16:36:21 +0200")
Message-ID: <87twq68dvd.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -4.0 (----)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
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: -4.0 (----)

--=-=-=
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable

taylanbayirli@HIDDEN (Taylan Ulrich "Bay=C4=B1rl=C4=B1/Kammer") writes:

> This seems to be related to 'compile-file' setting
> '%file-port-name-canonicalization' to 'relative', but I don't know
> what the correct fix is.

With the following trivial patch changing 'relative' to 'absolute',
Guile's test suite passes and the bug seems to be fixed, but I still
don't know whether this is the right fix...


--=-=-=
Content-Type: text/x-diff
Content-Disposition: inline;
 filename=0001-Fix-include-for-files-in-load-path.patch

From 3e508926631a6fe3d81f6a584352562afc0e96ee Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Taylan=20Ulrich=20Bay=C4=B1rl=C4=B1/Kammer?=
 <taylanbayirli@HIDDEN>
Date: Mon, 5 Oct 2015 00:15:56 +0200
Subject: [PATCH] Fix 'include' for files in load path.

Fixes <http://debbugs.gnu.org/21613>.

* module/system/base/compile.scm (compile-file): Set
  %file-port-name-canonicalization to 'absolute by default.
(compile-and-load): Ditto.
---
 module/system/base/compile.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index c522b74..66eec44 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -136,7 +136,7 @@
                        (to 'objcode)
                        (env (default-environment from))
                        (opts '())
-                       (canonicalization 'relative))
+                       (canonicalization 'absolute))
   (with-fluids ((%file-port-name-canonicalization canonicalization))
     (let* ((comp (or output-file (compiled-file-name file)
                      (error "failed to create path for auto-compiled file"
@@ -157,7 +157,7 @@
 
 (define* (compile-and-load file #:key (from (current-language)) (to 'value)
                            (env (current-module)) (opts '())
-                           (canonicalization 'relative))
+                           (canonicalization 'absolute))
   (with-fluids ((%file-port-name-canonicalization canonicalization))
     (read-and-compile (open-input-file file)
                       #:from from #:to to #:opts opts
-- 
2.5.0


--=-=-=--




Information forwarded to bug-guile@HIDDEN:
bug#21613; Package guile. Full text available.

Message received at submit <at> debbugs.gnu.org:


Received: (at submit) by debbugs.gnu.org; 4 Oct 2015 14:36:34 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sun Oct 04 10:36:34 2015
Received: from localhost ([127.0.0.1]:54468 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1ZikOw-0006ZV-AB
	for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 10:36:34 -0400
Received: from eggs.gnu.org ([208.118.235.92]:49329)
 by debbugs.gnu.org with esmtp (Exim 4.80)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOt-0006ZM-Qg
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 10:36:32 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOs-0006TD-Ji
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 10:36:31 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.2 (2011-06-06) on eggs.gnu.org
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=5.0 tests=BAYES_40,FREEMAIL_FROM,
 T_DKIM_INVALID autolearn=disabled version=3.3.2
Received: from lists.gnu.org ([2001:4830:134:3::11]:36751)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOs-0006T9-H9
 for submit <at> debbugs.gnu.org; Sun, 04 Oct 2015 10:36:30 -0400
Received: from eggs.gnu.org ([2001:4830:134:3::10]:59335)
 by lists.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOr-0007tR-L8
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 10:36:30 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOm-0006RN-Lw
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 10:36:29 -0400
Received: from mail-wi0-x233.google.com ([2a00:1450:400c:c05::233]:38508)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <taylanbayirli@HIDDEN>) id 1ZikOm-0006RH-G9
 for bug-guile@HIDDEN; Sun, 04 Oct 2015 10:36:24 -0400
Received: by wiclk2 with SMTP id lk2so83451396wic.1
 for <bug-guile@HIDDEN>; Sun, 04 Oct 2015 07:36:23 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113;
 h=from:to:subject:date:message-id:user-agent:mime-version
 :content-type; bh=sLPZ8BJqjOHe1dVnUQf2lrkf9oJUQsUaDnKjHaAe9lw=;
 b=HP70YlZmuDA6Z1uKhJjnkhsXtUxG0hqVaCkNwtVne1S2o8s83Tzgdrz5nud58QGIz5
 i7OwvQ1e+eOc9pXC34WA3BBC3OwENhrlBfCRqdURZ2z17Betq0WnRCct3IJDiez6tpmA
 Vc791U4mK+82q1kSgrYDHH4Bop7BOVL4DHkVXwZwGagyGvCsod8O1S7igsVmtjwcObEV
 5pwpdjPsjr8UwIO+wowvhI79Q2LNpuLYMSB0D3Fg2jG5rNhCmsxvtOx94gvh5SXhgZYs
 47HDx/bzmwBklO3FrDJ6D7GBXET0OiLEBq9CAFaDEU4FR7Q5LBn1Jri6adyNPYMYJqf0
 iXng==
X-Received: by 10.180.184.134 with SMTP id eu6mr7323262wic.77.1443969383647;
 Sun, 04 Oct 2015 07:36:23 -0700 (PDT)
Received: from T420.taylan (aftr-37-24-151-116.unity-media.net.
 [37.24.151.116])
 by smtp.gmail.com with ESMTPSA id jd7sm62648wjb.19.2015.10.04.07.36.22
 for <bug-guile@HIDDEN>
 (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128);
 Sun, 04 Oct 2015 07:36:22 -0700 (PDT)
From: taylanbayirli@HIDDEN (Taylan Ulrich =?utf-8?Q?Bay=C4=B1rl=C4=B1?=
 =?utf-8?Q?=2FKammer?=)
To: bug-guile@HIDDEN
Subject: Include messes up when compiling file in load path
Date: Sun, 04 Oct 2015 16:36:21 +0200
Message-ID: <8737xqaefu.fsf@HIDDEN>
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)
MIME-Version: 1.0
Content-Type: text/plain
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
 (bad octet value).
X-Received-From: 2001:4830:134:3::11
X-Spam-Score: -4.0 (----)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.15
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: -4.0 (----)

When a file to be compiled, A.scm, contains (include "B.scm"), the
compiler fails to find B.scm if the directory containing A and B are in
Guile's load path.

Here's a shell transcript showcasing the bug:

--- snip ---
$ mkdir test
$ echo '(include "test2.scm")' > test/test1.scm
$ echo '(display "foo\n")' > test/test2.scm
$ pwd
/home/taylan
$ export GUILE_LOAD_PATH=/home/taylan/test
$ unset GUILE_LOAD_COMPILED_PATH
$ guile -q
GNU Guile 2.0.11
Copyright (C) 1995-2014 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (compile-file "/home/taylan/test/test1.scm")
ice-9/boot-9.scm:106:20: In procedure #<procedure 248a580 at ice-9/boot-9.scm:97:6 (thrown-k . args)>:
ice-9/boot-9.scm:106:20: In procedure open-file: No such file or directory: "./test2.scm"

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(#{ g269}#) [1]>
--- snip ---

This seems to be related to 'compile-file' setting
'%file-port-name-canonicalization' to 'relative', but I don't know what
the correct fix is.

Taylan




Acknowledgement sent to taylanbayirli@HIDDEN (Taylan Ulrich Bayırlı/Kammer):
New bug report received and forwarded. Copy sent to bug-guile@HIDDEN. Full text available.
Report forwarded to bug-guile@HIDDEN:
bug#21613; Package guile. Full text available.
Please note: This is a static page, with minimal formatting, updated once a day.
Click here to see this page with the latest information and nicer formatting.
Last modified: Mon, 25 Nov 2019 12:00:02 UTC

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