From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.devel Subject: Re: Guile build failure Date: Mon, 21 Jan 2013 12:39:59 +0100 Message-ID: <87obgi7oj4.fsf@pobox.com> References: <20120709140217.3a5e271b@rascar> <87bojo6nc6.fsf@gnu.org> <20120710125040.37e9b946@rascar> <871ukipr8i.fsf@gnu.org> <20120719105939.44708c6a@rascar> <87629j68nv.fsf@gnu.org> <20120719134534.2d07fc8b@rascar> <87zk6t5pr8.fsf@gnu.org> <20120728125540.275b0334@rascar> <874nocw4lr.fsf@gnu.org> <87622q999d.fsf@pobox.com> <87obgidd86.fsf@gnu.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1358768414 13458 80.91.229.3 (21 Jan 2013 11:40:14 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 21 Jan 2013 11:40:14 +0000 (UTC) Cc: guile-devel@gnu.org To: David Pirotte Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Mon Jan 21 12:40:32 2013 Return-path: Envelope-to: guile-devel@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 1TxFjp-0006sJ-Er for guile-devel@m.gmane.org; Mon, 21 Jan 2013 12:40:29 +0100 Original-Received: from localhost ([::1]:48457 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TxFjX-0004i1-N6 for guile-devel@m.gmane.org; Mon, 21 Jan 2013 06:40:11 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:33945) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TxFjT-0004fF-Et for guile-devel@gnu.org; Mon, 21 Jan 2013 06:40:09 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TxFjR-0001Gu-PC for guile-devel@gnu.org; Mon, 21 Jan 2013 06:40:07 -0500 Original-Received: from a-pb-sasl-quonix.pobox.com ([208.72.237.25]:33619 helo=sasl.smtp.pobox.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TxFjR-0001C2-J6 for guile-devel@gnu.org; Mon, 21 Jan 2013 06:40:05 -0500 Original-Received: from sasl.smtp.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTP id 583F4B435; Mon, 21 Jan 2013 06:40:02 -0500 (EST) 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=mqvS0lM7an4x IS9clGeuae6ndG4=; b=DzsUKPt4lZYMvQz5Z2jNzYvkHlwXZpza2LD+32CFT7Nv P3H5u3eb4hQEBCfwAP9QYqdGH1DspHlVA9P0OS/SjK+3BJ0IHnko0N6B3D84eIhX 72Ei6LDeP4mPjQ60FUNRQKtJZR5jb13A8h9YKruhNa2A4+FY5UtNjgNeSep48Xw= 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=wuXdWb Mu3+3TA/t4SpUK+lcgKjwEAtmLrddYsdCSbPKTcyp0AhjI/DJmDncdXFdfbwLxsY Kz526XHkywvFW9HJDdhkxKjsWx8ev8fyghqwNX8H8+s8tJpgef6inLGrH4fM+AQK 7oytYZ3MtSh4hk1R/+NGX/n9ltERzh8Qx47GQ= Original-Received: from a-pb-sasl-quonix.pobox.com (unknown [127.0.0.1]) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTP id 4B550B434; Mon, 21 Jan 2013 06:40:02 -0500 (EST) Original-Received: from badger (unknown [88.160.190.192]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by a-pb-sasl-quonix.pobox.com (Postfix) with ESMTPSA id A46E1B433; Mon, 21 Jan 2013 06:40:01 -0500 (EST) In-Reply-To: <87obgidd86.fsf@gnu.org> ("Ludovic =?utf-8?Q?Court=C3=A8s=22'?= =?utf-8?Q?s?= message of "Mon, 21 Jan 2013 11:47:37 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2 (gnu/linux) X-Pobox-Relay-ID: 4AB886BA-63BF-11E2-A647-0A4F0E5B5709-02397024!a-pb-sasl-quonix.pobox.com X-detected-operating-system: by eggs.gnu.org: Solaris 10 X-Received-From: 208.72.237.25 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 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.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:15486 Archived-At: Hi David, On Mon 21 Jan 2013 11:47, ludo@gnu.org (Ludovic Court=C3=A8s) writes: > =E2=80=98load.test=E2=80=99 uses =E2=80=98compile-file=E2=80=99, and it s= eems that =E2=80=98compile-file=E2=80=99 does > an =E2=80=98open-input-file=E2=80=99 with no corresponding =E2=80=98close= -port=E2=80=99. That may be > the problem. Can you try the following patch? ./check-guile load.test on your NFS machine should do it. Andy diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm index afcb55a..d6a57e6 100644 --- a/module/system/base/compile.scm +++ b/module/system/base/compile.scm @@ -1,6 +1,6 @@ ;;; High-level compiler interface =20 -;; Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, In= c. +;; Copyright (C) 2001, 2009, 2010, 2011, 2012, 2013 Free Software Foundati= on, Inc. =20 ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -150,6 +150,7 @@ (read-and-compile in #:env env #:from from #:to to #:opts opts) port)) file) + (close-port in) comp))) =20 (define* (compile-and-load file #:key (from 'scheme) (to 'value) @@ -200,6 +201,7 @@ (let ((x ((language-reader (current-language)) port cenv))) (cond ((eof-object? x) + (close-port port) (compile ((language-joiner joint) (reverse exps) env) #:from joint #:to to ;; env can be false if no expressions were read. --=20 http://wingolog.org/