From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: taylanbayirli@gmail.com (Taylan Ulrich =?UTF-8?Q?Bay=C4=B1rl=C4=B1/Kammer?=) Newsgroups: gmane.lisp.guile.bugs Subject: bug#21613: Include messes up when compiling file in load path Date: Mon, 05 Oct 2015 00:31:34 +0200 Message-ID: <87twq68dvd.fsf@T420.taylan> References: <8737xqaefu.fsf@T420.taylan> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1443997941 3784 80.91.229.3 (4 Oct 2015 22:32:21 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 4 Oct 2015 22:32:21 +0000 (UTC) To: 21613@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Oct 05 00:32:10 2015 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1ZirpC-00065k-0h for guile-bugs@m.gmane.org; Mon, 05 Oct 2015 00:32:10 +0200 Original-Received: from localhost ([::1]:43802 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZirpB-0003Xm-2W for guile-bugs@m.gmane.org; Sun, 04 Oct 2015 18:32:09 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46155) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zirp7-0003Xd-Dq for bug-guile@gnu.org; Sun, 04 Oct 2015 18:32:06 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zirp4-0002Xh-6L for bug-guile@gnu.org; Sun, 04 Oct 2015 18:32:05 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:37503) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zirp4-0002Xd-35 for bug-guile@gnu.org; Sun, 04 Oct 2015 18:32:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Zirp3-0000LD-RE for bug-guile@gnu.org; Sun, 04 Oct 2015 18:32:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: taylanbayirli@gmail.com (Taylan Ulrich =?UTF-8?Q?Bay=C4=B1rl=C4=B1/Kammer?=) Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 04 Oct 2015 22:32:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 21613 X-GNU-PR-Package: guile X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-guile@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.14439979061288 (code B ref -1); Sun, 04 Oct 2015 22:32:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 4 Oct 2015 22:31:46 +0000 Original-Received: from localhost ([127.0.0.1]:54707 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Ziron-0000Kh-Bn for submit@debbugs.gnu.org; Sun, 04 Oct 2015 18:31:45 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:36107) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Zirok-0000KX-3Z for submit@debbugs.gnu.org; Sun, 04 Oct 2015 18:31:43 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ziroi-0002UV-Sn for submit@debbugs.gnu.org; Sun, 04 Oct 2015 18:31:41 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:48703) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ziroi-0002UQ-Qa for submit@debbugs.gnu.org; Sun, 04 Oct 2015 18:31:40 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46105) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ziroh-0003V6-Mx for bug-guile@gnu.org; Sun, 04 Oct 2015 18:31:40 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ziroe-0002TN-HA for bug-guile@gnu.org; Sun, 04 Oct 2015 18:31:39 -0400 Original-Received: from mail-wi0-x236.google.com ([2a00:1450:400c:c05::236]:37412) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ziroe-0002TD-AB for bug-guile@gnu.org; Sun, 04 Oct 2015 18:31:36 -0400 Original-Received: by wicfx3 with SMTP id fx3so91139859wic.0 for ; 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) Original-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 (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 04 Oct 2015 15:31:34 -0700 (PDT) In-Reply-To: <8737xqaefu.fsf@T420.taylan> ("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") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux) 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-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 208.118.235.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7860 Archived-At: --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable taylanbayirli@gmail.com (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?= Date: Mon, 5 Oct 2015 00:15:56 +0200 Subject: [PATCH] Fix 'include' for files in load path. Fixes . * 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 --=-=-=--